Ata АІ 


Computer 


ENTHUSIASTS 
3662 Vine Maple Dr GCugene OR 97405 


нез — —— —— мығым» — —— — — — — — — — — — — — — — — — — С — — —ñ — т — — —— — — 


Hovember „ 1737 
Mike Dunn & Jim Ғоанарас, Editors 


resum amope — —— LTT — — — — — — — — —— — — — — — — — ене — —— — — — — — — 





FROM 


ATARI 
PIN 


5 %5У | TO 
race ok Wo зур, 4 PRINTER 
ac 4 - 

8 2——— а аав 12-10K CONNECTOR 

— — өл 
BIT О 
BIT 1 


BIT 2 


BIT 3 


BIT 4 


BIT 5 
BIT 6 


BIT 7 


ERROR 


BUSY 





Frinter /Joystick. Interface 
mys Ed Chastain 


Geen — — — — — — — — — — — — — — — — — — — — — — —— — —— —— —— — — — 


Connecting ап 
Epson МХ-80 Printer 
to an ATARI 


by Ed Chastain 


This article discusses connecting an EPSON MX-80 (or any other) printer to the 
front controller jacks of an ATARI Personal Computer System (PCS). It explains 
the necessary hardware and software required to accomplished this. Recently, a 
friend of mine looked into purchasing a printer for his ATARI PCS but, he didn’t 
want to purchase an ATARI 850 interface module. | told him it is possible to con- 
nect the printer to the front controller jacks of his ATARI computer. After he 
decided to purchase the EPSON printer, it was my task to build an interface and 
write the necessary printer handler for him. 

There are currently several devices which connect to the controller jacks, 
including: another printer interface, various EPROM programmers, and a direct 
connect modem. 

The Macrotronic printer interface uses two of the controller jacks, but with only 
seven data bits, the eighth bit.is used as the strobe, and the trigger inputs аге 
used for busy and error status. This is fine with most printers, but many of the 
new ones can use all eight bits. | chose to use three controller jacks because | 
wanted all eight data bits, since the MX-80 with graphics can utilize the eighth bit. 

HARDWARE 

The hardware | used consists of the following parts: two LM3086 transistor 
arrays; twenty 10K Ohm, quarter Watt resistors; ten 0.001 microfarad capacitors; 
two 15 wire cables (lengths depend upon your needs); three 9-pin connectors 
(compatible with ATARI controller jacks); printer connector (compatible with your 
printer); a printed circuit board kit, or breadboard, or experimentor plugin bread- 
board, or anything you choose to build your circuit on; a small plastic box of a size 
compatible with your circuit board (optional). The schmatic diagram for the circuit 
is shown in the accompanying Figure. 

SOFTWARE 

The software | originally wrote is for a cassette based ATARI 400/800 computer. 

However, | have also included the necessary software for disk users. The printer 
handler routines І wrote are very simple. | have corrected the problems many other 
users have experienced in using EPSON printers with the ATARI 850 interface 
module. These problems occur because the ATARI printer handler routines use a 
40 character buffer which is always filled before its contents are sent to the 
printer. 
If your line is less than 40 characters long, the handler fills the rest of the buffer 
with blanks and sends it. This buffer is used by the ClO/SIO (Central/Serial І/О 
routines) to send the data by block output to the ATARI 850 interface module. The 
routines | use do not utilize a buffer, each character from CIO is sent directly to 
the printer through the controller jacks. A considerable amount of time is saved in 
printing by avoiding the use of a buffer in the ATARI PCS, many of the new 
printers already have built-in buffers. 

(Cassette Version). The printer handler program resides on page 6 of RAM, so 
you won't be able to use page 6 for other uses. The printer handler program for the 
cassette bootable version consists of four parts: 1) the information needed to 
make the cassette bootable tape; 2) a routine which (re-)establishes the “Р” device 
in the device table on power-up and after a system reset; 3) the actual printer 
handler routines; and 4) the “Р” device‘s vector table for ClO. To save a few bytes 
of RAM the device vector table is copied over part 1) upon booting the tape ver- 
sion. | wrote the original version of the program using ATARI‘s new Macro 
Assembler. However, since most people have the original assembler, I'll present a 
version compatible with it. Program 1 is the assembler language program for the 
printer handler, cassette version. Program 2 is a program which creates cassette 
bootable tapes for the ATARI PCS. 





“DISCOVER FORTH” 


by THOM HOGAN 
(OSBORNE/MCGRAW-HILL. Price is $14.95 including shipping if prepaid) 


The cover proclaims “learning and programming the FORTH language”. The 
dedication page says it all, “Okay, Dick, you got me into this — now get me out!”’. 
| had expectations of a book similar to Leo Brodie‘s “STARTING FORTH”, but this 
is not the case. The text does “discover” FORTH in that it is a good introduction 
to the FORTH language. The book may be considered a complement to a com- 
plete text on programming in the FORTH language. It is nota usable single source 
of information on programming in FORTH. If you must һауе a complete library of 
all the books written on FORTH language, pick it up and put it on the shelf. 

—LARRY SANO 


ro 


(Disk Version). The disk version of the printer handler also resides on page 6 of 
RAM. Program 3 is the disk version of the printer handler. It consists of four parts: 
1) the handler vector table; 2) a routine which (re-) establishes the “Р” device in the 
device table on power-up and after a system reset; 3) the printer handler routines; 
and, 4) a routine which saves 005° initialization vector and replaces it with the 
printer’s initialization vector. 


PROCEDURE FOR MAKING TAPE OR DISK VERSION 

(Cassette Version). The procedure to make a cassette bootable tape with the 
printer handler on it is relatively simple. First, place the assembler cartridge in the 
ATARI PCS and enter Program 1. You may wish to save this program to a tape to 
avoid re-entering it at some later time. Next, assemble the program using the ASM 
asssembler command. Enter the NEW command, and then type in Program 2. 
Again, you may wish to save Program 2 for some later time. Assemble Program 2 
using the ASM command. Next, enter into the debugger by typing in BUG. Using 
the G command, G4000 run Program 2. You should hear the familiar two buzzes, 
set up a blank tape for recording by moving the tape ahead past the leader. Place 
the blank tape into the Program Recorder, depress the RECORD and PLAY but- 
tons, then press RETURN on the console. After the Program Recorder stops, re- 
wind the tape. You now have a cassette bootable tape with a new printer handler 
which utilizes the front controller jacks instead of the 850 interface module. 

(Disk Version). The procedure to make an AUTORUN.SYS file with the printer 
hanlder on it follows. First, place the assembler cartridge in the ATARI PCS, then 
boot DOS 2.0. Format a blank disk and write the DOS files to it. Return to the 
assembler cartridge, and enter in Program 3. Assemble Program 3 to a disk file by 
using the assembler command ASM,,#D:AUTORUN.SYS. This will give you a disk 
which when booted will make available the printer handler. 

USING YOUR PRINTER 

Turn off your ATARI PCS, and connect your printer and ATARI PCS together us- 
ing the interface you previously built. Place the BASIC or ASSEMBLER cartridge 
(whichever you wish to use with your printer) into the cartridge slot, but don't turn 
on the power yet! 

(Cassette Version). While holding down the START key on the ATARI console, 
turn on the power. You should hear the familiar single buzz. Place your cassette 
bootable tape with the printer handler on it into the Program Recorder and 
depress the PLAY button, then press RETURN on the console. The tape should 
load in and then soon stop. You are now ready to use your printer. 

(Disk Version). Boot the disk with your printer handler AUTORUN.SYS file on it. 
You should then be ready to use your printer. 

Try it. Enter in some program using BASIC and send it to the printer by typing in 
LIST “Р:” and pressing RETURN. You should see the listing appearing on your 
printer. You can also use LPRINT statements, etc. Have Fun, and Happy Printing. 


XXXXXX 


Taking a РОКЕ at PILOT 


by Ruth Ellsworth 


Having always wanted to do all the fancy and interesting things which are 
possible through the use of PEEKs and POKEs, | was delighted to discover PILOT 
makes peeking and poking easy. 

Written with the non-programmer in mind, the very logical @B (at byte) notation 
is used to PEEK and POKE in PILOT. The @B is the pointer and preceeds the byte 
number which is followed by the desired value. For example, in the program which 
follows the computer is told to POKE byte 755 equal to 2 (normal letters), and later 
to 4 (inverse letters) becoming C:@B755= 2 and С:@В755 = 4. 

А POKE in PILOT is indicated by the С: command which will “Compute” the 
calue given into the byte specified. A PEEK is indicated by the T: command which 
will return the value presently at the byte specified. 

Since the IF THEN terminology is not supported in PILOT, conditions are tested 
by the J (Jump) command. In order to test the condition at a byte the command 
J(@Bxxx = x):*Module. Тһе test for start in the following program demonstrates 
this technique. The values for the various characters (keys) are found on page 50 
of the АТАН! PERSONAL COMPUTER SYSTEM OPERATING SYSTEM USER’S 
MANUAL, but will have to be converted from HEX to Decimal. This can be easily 
accomplished through the purchase of an IBM Reference Data Card from LCC 
which costs only twenty cents. 

An excellent list of the bytes most used by programmers is available in THE 
MASTER MEMORY MAP by Educational Software. | have not had any trouble 
using the ones | have tried in the standard graphics mode, but did find that some, 
including the small letter value did not work in the oversize test mode. The 
Technical Notes for PILOT are available from ATARI, and all the values and bytes 
indicated work easily. | recommend all programmers using PILOT obtain a set of 
those notes. 

Take a POKE or PEEK at PILOT, it is fun and surprising what can be done! 


* PROGRAMMING HINT FOR PILOT BEGINNERS 
To use a module you have used before and don’t want to retype when it is 
buried in another program: 
Load the program 
List just the numbers of the module 
Type NEW 
Either change the numbers and type return, or type return through each 
line and then type REN. 


Benioff At Large 


(The Big Guy Goes To USC) 
by Marc Russell Benioff 


Hello, and greetings from The University Of Southern California (USC). Over the 
past four months, this column has had three names, and three different styles. | 
have now decided to keep it “Benioff at Large”, and write it the way | feel is 
correct. The reviews will begin to get longer, but they will be less in number. Only 
the programs and information which | feel is absolutly pertinent will appear. If it is 
pertinent, it will appear. The column this month reviews four games and two 
magazines. “Two Мадагіпе5?”, you ask. Yes, Antic #4 and ANALOG #8. This 
month, the column takes another turn. Cross into “The Benioff Zone”. 

“Marc, you are not going to believe this, my computer is talking!”, shouted the 
professional Atari programmer. “Sam, Sam, Sam, he is talking to me!”, he 
screamed. “O.K., it is O.K.”, | said back. Little did | know what he was talking 
about. SAM is The Software Automatic Mouth, a new product from Don’t Ask 
Software. If you remember correctly, Don't Ask made а big hit first with ABUSE, 
and now they have released SAM. SAM is a voice synthesiser. It uses the 
television to talk. To answer many questions at once, it only requires an 800, a 
Disk Drive, and a TV. No other hardware is required. For $60, you can own an 
excellent voice synthesiser. SAM is a machine language subroutine which is 
accessed through BASIC. This means you can make your own programs talk. 
Included with SAM is several demos, speeches (i.e. Gettysburg Add., and The 
Pledge), and excellent instructions allowing anyone to use it. Is there anything 
bad about SAM? Yes, there is one small item, the screen blanks out while he talks. 
But this is the only weak point. Soon, there will be a singing version which 
interacts with the music composer, according to Ооп“ Ask. How can | пої give 
this my highest rating, it is a technical masterpiece! Contact Ооп“ Ask At: 2265 
Westwood Boulevard, Los Angeles, CA, 90064. 213-397-8811. You won't regret it! 


It is not just another game. First there was Match Racer, now there is Baja 
Buggies! If you have ever seen Turbo by Sega in the arcades, you understand the 
complexity of a 3-0 driving game. It isn’t quite а “Turbo”, but it comes pretty damn 
close! Baja Buggies is а 3-0 driving game that takes place іп the desert. it is.in full 
3-D, and even has scrolling mountains to add to the effect. It is а опе player game, 
and allows three course options, and two skill levels (Pro and Am). When you take 
the driver’s seat in Buggies, you see your car in front of you. You begin number 
Eighty in a line of Eighty Buggies. Your job is to climb to number one by the end 
of the course. Dodging buggies, controlling your speed, and using your brakes, all 
come to use in Buggies. A game well worth the money. You drive by using your 
joystick. Your gas pedal is constantly floored, and you can use your brakes to 
slow yourself down. If you are a poor driver, knock other cars, hit the side of the 
course, etc., your buggie will break down, and you will have to start over. Baja 
Buggies is an excellent game. Contact Gamestar at: 1302 State Street, Santa 
Barbara, CA, 93101, 805-963-3487. It’s Incredible. 


We have all been waiting for it, and now it is finally here. The “Official” Frogger 
by Sega, as programmed by John Harris for Sierra On-Line, Inc. Yes, it is exact. 
Except, there is not a two player option. Well, this is beside the point. What we 
have here is a game worthy of the On-Line reputation of excellance! In Frogger, 
you must guide a frog through a busy street, over a beach, and through a river to 
his home. during this course, you can meet a lady frog, and also assist her. Other 
perils include: alligators, otters, and worms. It is a game even your mother will 
enjoy. Of course you have seen Pacific Coast Highway, Preppie!, and others, but 
this is the Frogger. And, it was worth the wait. Frogger is available from Sierra On 
Line, Inc: 36575 Mudge Ranch Road, Coarsegold, CA, 93614, 209-683-6858. | can 
hardly wait to see Ultima, their next release! 





Dr. Goodcode’s Cavern is a new adventure game from Gebelli Software, Inc. | 
briefly have talked about this game before, but | think an in-depth review is worth 
it. CAVERN is an all text game. But, it isn‘t. It involves color sound, all joystick 
control, and yet, it is a text adventure. How is this possible? Because it is this 
way: It is the reason for its outstanding playability. The creative mazes (random 
every time), interesting prompts, and fantastic battle sequences, throw it into a 
realm of outstanding adventuring. It is not an adventure like the Scott Adams or 
On-Line type. It sets its own realm. You explore, can save your game, and all of 
this takes place in BASIC! Yes, BASIC! | love it, and so should you! 48K and disk 
are required. Contact Gebelli at: 1787 Tribute Road, Suite G, Sacramento, CA, 
95815, 916-925-1432. | like Gebelli, they are different! 

Before | begin my reviews and comparisons between ANALOG AND ANTIC, | 
think | should give you my bias towards each. | have talked to Jim Capparell many 
times, and have discussed article possibilities, but have never published with 
them. | have been printed twice in ANALOG, number 6 and 7. In number 6, | was a 
contributing editor. | have NOT been paid for either printing (10/25), and it has 
been six months since the first printing. Payment was agreed to be paid at time of 
printing. | consider both publications a positive force in the ATARI spectrum. | will 
try to keep a non-biased view, and attempt to give the reader the good and bad 
points of each. | 

Antic was first released at the West Coast Computer Fair in March. Since then 
they have made precise bi-monthly printings, and have maintained a publication 
on slick paper with exceptional artwork on the covers (issues 3 & 4). Antic wants 
to be the ATARI resource, and | think they are doing a very good job. Antic is laid 
out in a professional magazine style. Contents aside, the magazine appears to be 
clean cut, professional, and extremely colorful! Antic “Тһе sound issue” features 
articles from simple Atari Music and sounds, to how to use sound in cassette 
programs. Featured writers are Jerry White and Ed Rotberg (The finest Atari sound 
creators ever). Antic also diverts into reviews of four new products. ANTIC also 
has games from Stan Ockers, and John Magdziarz. Antic also has a section on 
Turtle graphics. ANTIC has 78 pages, 56 advertisements, and sells for $2.50. Antic 
also has many other fine articles in issue 4. . 

A.N.A.L.O.G. also is an ATARI magazine. Analog has no theme for issue 8. On 
the cover is a picture of an 800 and a monitor, with a single hand, and white lines 
from the keys the hand pushed. ANALOG recently began using slick paper (issue 
7), and also has a quality look. There are no colored pages or colored outlines, like 
ANTIC. ANALOG offers a audio program similar to ANTIC’s, but theirs is /2 а 
page, and only tells how to turn off and on the program recorder in Basic. ANTIC 
goes into detail, while ANALOG allows a shallowness in this field. ANALOG has 
an excellent in depth review on three budget programs. This review goes further 
into depth than апу of ANTIC’s reviews. ANALOG and ANTIC both have a review 
оп Тһе Voicebox. ANALOG’s is 17 pages, апа ANTIC's is 7 page. ANALOG has 
articles on mixing graphics modes, floating point numbers, and new products. 
ANALOG excells in providing user programs. They offer 8 programs, and several 
demos. ANALOG has 96 pages, 50 advertisements, and sells for $2.50 

CONCLUSIONS. These are two totally different magazines. ANTIC is “The Atari 
Resource”, providing valid information to the beginner and expert on the theme of 
the issue. ANALOG is for the educated user. It has programs, less beginner 
information, and has a less slick appearance, but offers less ads and promotions. 
Only you can choose, both are fine magazines. 

ANTIC: 297 Missouri Street, San Francisco, CA 94107 
ANALOG: 565 Main Street, Cherry Valley, MA 01611 

| look forward to many fine programs coming out before Christmas. | will see 

you next month in “Benioff At Large” 
Sincerely, 
Marc R. Benioff 





COMPUTER CABINET 


| just bought one of the finest pieces of furniture I’ve ever seen. Paul 
Armstrong, owner of ACO WOODWORKS, 755 East 22ndAvenue, Eugene, OR 
97405, (503) 342-4684, is the father of one ACE member and the son of another. | 
learned he has been designing a computer work station for and with his mother. 
So | approached him with some very rough ideas of my own. | drew a little picture 
on a scrap of paper and described what | thought were good dimensions to use. | 
wanted an integrated cabinet in which to place ALL the computer gear | had been 
using which was scattered around a large part of a room. 

Paul produced a final design and built from it a solid oak cabinet, mounted on 
casters for easy movement from room to room. The overall dimensions аге 40” 
high, by 32” wide, by 24” deep. The cabinet сап be described as consisting of 3 
“sections”. The top section holds the printer which is accessible from a lid 
opening the top. The front is a slanted copy holder. The copy board is hinged on 
the top and is lifted to access the control switches in the front of the printer. To 
the right of this copy board is a drawer for disk storage. 

Immediately below is a section with a door which swings down and provides a 
surface upon which to roll out the console for easy typing. This door/platform is 
28” from the floor. | have the console, disk drive and modem in this compartment. 
There is room for a dual disk drive. 

The bottom-most section has two swinging cabinet doors opening into two 
shelves. | store game accessories, documentation and other books, some 
supplies, and other miscellaneous things down here. The top shelf also contains 
the interface. 


The bottom shelf contains the “rat’s nest” of wires and cables. The only wires 
which need to exit the cabinet are the power cable, the RF jack to the TV, and the 
telephone line to the modem. All other cables and wires are routed through a 
“chimney” behind the disk storage drawer and extending through the entire 
cabinet to a power strip | bought and put on the bottom shelf. 

The back of the cabinet has two sets of double doors, completing the full 
access to every part of the cabinet. The top set of doors opens onto the printer 
area, and also onto the console/disk drive area. There is a 10” wide slit cut in one 
door behind the printer so paper can exit the cabinet and not accumulate inside 
while printing. The bottom set of doors opens onto the two bottom shelves from 
the rear. 

The workmanship of the cabinet is excellent. Paul tells me he is willing to build 
more of these, and will make modifications to order. For a model like the one | 
have (perhaps with a few minor modifications) his price is $495. He takes a few 
weeks to build it, give it an oil finish, and deliver it (in Eugene or nearby). If the 
cabinet must be shipped, it will take longer and shipping must be paid. 

In the few days I’ve had the cabinet, I’ve noticed many advantages over the way 
in which | used the computer equipment before. All the equipment fits into 
floorspace 32”х 24”, and can be moved easily. The cabinet is an attractive piece of 
furniture which looks good anywhere in the house. The printer is closed up and 
almost silent! All the equipment can be closed up from sight and away from dust. 
For the first time, | really have a convenient method for reading copy as | type it 
into the console. And the disk storage drawer is the best method I’ve yet used to 
store disks. 

If you’re interested to inquire further, | recommend you contact Paul Armstrong 
soon. He’s only one man, and can only make so many in a given time. 

—Jim Bumpas, Co-Editor 


Brian’s Arcade 


About one week ago Ihor from Synapse Software sent me Claim Jumper, Pro- 
tector Il, and Picnic Paranoia.These аге all new games from Synapse and they are 
all very good. 

Protector 11, by Mike Potter is the second version of Protector released by 
Synapse but the third version overall (the first version was released by Crystal a 
long time ago). Protector Il is pretty much the same as Protector | with a few varia- 
tions. In Protector | there is no gravity. In Protector II if you move your Omicron 
Needlefighter to the top of the screen you will slowly start to fall to the ground 
which means there is gravity. Another very good change in this version is: When 
you have a person clinging onto your ship you can shoot and the people will not 
fall off of the needlefighter. This is sort of a problem though because when you 
want to drop your man on a building you have to drop him right on top of the 
building instead of going on top of the screen and pressing the joystick button as 
you do in Protector |. Something else | like is: Instead of flying to the right 
automatically in Protector ІІ you can fly to the left and you will be very close to the 
city where you save your people once and for all. In Protector |! the game enables 
you to fly through the buildings which is very helpful because in Protector І, | 
always died because | kept hitting the buildings. Protector I! has much better 
graphics than regular Protector. All | can say is: If you liked the other Protector 
you will love Protector ПІ. 

Claim Jumper—by Gary Chang 

Claim Jumpę is an old western shoot’em up game with a couple things which 
make it very fun. Claim Jumper is a two player game. Each person contols an old 
miner. The miners try to run and get the gold and turn it into the bank and then the 
bank will give you money for the gold. Whoever gets the money from the bank first 
then trys to take it to his bank. While taking it to your bank you have to avoid get- 
ting shot by the other angry miner or running into houses, cactusses, snakes, or 
tumbleweeds. Claim Jumper is the best two player game, where you play at the 
same time, on the market. The game is so good | even got my dad to play with me 
and he hates playing games. 

Picnic Paranoia—by Russ Segal 

In Picnic Paranoia you are George. George is having a picnic. Suddenly George 
finds he is being invaded by ants, jumping spiders and flying wasps. You are 
armed with your faithful fly swatter and you have to try to kill off the ants, spiders 
and wasps before they get your food. The only way you can stop them is by killing 
them with your flyswatter. Picnic Paranoia has outstanding graphics and 
awesome sound. The game has a one or two player option and it has an option 
where you can have a picnic at night or in the daytime. Overall, Picnic Paranoia is 
a very good and very cute game which will give you hours of enjoyment. 

All of these games are available from Synapse Software and they are all very 
good. 


Metor Storm—by Jon Atack 

Royal Software in Eugene was kind enough to give us their new game Meteor 
Storm. Meteor Storm is kind of like Protector. The object of the game is to rescue 
all your people form a dome covered city. Sounds easy, but it‘s not because there 
are a couple of problems. There are meteors going across the TV screen and you 
can not run into them so you have to shoot them. Also there are space mines and 
if they run into a meteor they will explode. If you are around them when they 
explode you will die. 

Meteor Storm has very good graphics and outstanding sound. When you start 
to louse the game up you will hear the theme from Raiders of the Lost Ark. Meteor 
Storm is written by Jon Atack and L.J. Knoll and is available from Royal Software 
in Eugene. 

Until Next month this is Brian Dunn saying happy arcading!! 


ERACE 
GOOD NEWS FOR EDUCATORS! 


ATARI has made a fotune producing and marketing some of the world’s 
greatest microprocessor based games. Some people think games is all Atari does. 
in the minds of some, the ATARI 400/800 computers are “fancy game machines”. 

1 didn’t know that when | bought my ATARI 800. At the time, | was а high school 
English teacher in a small country school who wanted to see what the 
microcomputer could add to my classroom. The school district had no desire to 
buy computers, so | decided to buy one and teach myself to operate it. After 
careful and extensive research, | chose ATARI for the many reasons we ATARI 
owners are well aware of by now. 

But in the world outside ATARILAND, the stigma continues. Many would-be 
computer owners won’t even consider Atari. 

How do we erase the stigma? Well, this is one reason why several of us A.C.E. 
members in Eugene have named our new education group ERACE. We hope to 
show educators what ATARI has to offer. 

EDUCATIONAL RESEARCHERS of А.С.Е. is beginning its third month, and 
already great things are taking shape. At our October meeting, Bob Browning, 
whose interest, along with mine, is designing and creating educational software, 
presented some of his findings about current theory in program design. His 
research is on-going and will be of importance to the group. 

For our November meeting, Ruth Ellsworth is doing a special presentation on 
ATARI Pilot, demonstrating how it can be used in the home by any interested 
parent to supplement a child's school work. Ruth, as you probably know, has 
written several programs in Pilot and is our resident expert. 

Having been on my own (just me and my ATARI) for almost one year and not 
even knowing about A.C.E., | sympathize with you courageous people out there in 
the wilds who have plunged into the exciting world of microcomputing. | have 
great hopes ERACE will meet some of the educational needs we all have whether 
educators, concerned parents, or persons interested in self-education. 

We plan to prepare a special article or letter to the editor which we will send to 
various computer magazines in order to let more ATARI owners know about 
ERACE. Included in the letter will be a statement of our goals, which are: 

1. To locate and identify available educational software; 

2. To evaluate and catalog the software; 

3. To design programs and to submit ideas intended to fill gaps in the 
educational market; 

4. To inform the public through the monthly A.C.E. Newsletter, 

5. To help train parents, teachers and children in the use of educational 
software in the home; 

6. To document software which is poorly documented. 

We will also make a request for input from anyone interested in helping or 
being helped. If you know of educational software currently being used on the 
ATARI 400/800 system, including your own creations, we want to know about it. 
We will prepare honest reviews based on actual use by young people in the age 
categories suggested by the producer. In the event we find the program is 
deficient, we will not review it but will instead send suggestions to the producer. 

The next meeting of ERACE is Tuesday, December 7, 1982. For further 
information, contact our chairperson, Alice Erickson (687-1133), who is currently 
working on a doctorate in educational psychology, Larry Gold (686-1490), our 
software contact who is using his ATARI to write a novel (his wife is also writing a 
non-fiction book on the same machine!), or me, DeLoy Graham. | am presently 
working on a masters‘ degree in computer science education. We want to serve 
your needs. 

—Russell DeLoy Graham 
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Reviews and News 


by Mike Dunn, Co-Editor 


Yesterday | received the brand new Mosaic 64K RAM board for the Atari 400. 
(Mosaic POB 708, Oregon City, OR 97045, $250). This not only expands your 
memory, but allows you to use 52K for most applicatations, and gives you the 
ability to bank-select 4 4K banks of memory. To install the board, you first take the 
Atari 400 completely apart, solder two wires from a cable, install the new board, 
change a chip and connect a ribbon cable. The instruction booklet is reasonably 
easy to follow and complete. You then put it all back together, and hope it works. 
Plan about an hour; | had no problems, but ‘ме taken my 400 apart many times 
testing various memory boards, etc. This will of course void your warranty on your 
Atari. 

it worked the first time. With a BASIC cartridge іп, you turn your Atari on, and 
use ?FRE(0). You still show 37,900, but then with a simple POKE, you increase it to 
read 49,934- some of it being used by the cartridge, of course. With other 
programs which do not use the cartridge slot, the extra memory is automatic. In 
the programs | tried, the indicated memory available is increased by about 4K in 
VisiCalc, MicroSoft BASIC, Atari Word Processor, Letter Perfect Disk (Not ROM), 
and, | suspect, any program which starts in low memory and looks for RAMTOP to 
decide the amount of memory available. 


Screen Sonics (11416 S. Outer Rd., Chesterfield, MO 63017) is sending me a 
“Sidewriter’, their $250 outboard keyboard for the 400 (or 800) to review for the 
next issue, so I'll have the most powerful and expensive 400 around!! 


Ad Astra, the Atari HAM Newsletter (4749 S.R. 207 М.Е., Washington, C.H., OH 
43160 $10 yr) in their new issue, #4, announces a new company called Creative 
Firmware, 707 Auburn Dr., Richardson, TX 75081) which has various new kits, 
including а OS EPROM Board allowing you to make custom OS and use the extra 
4K of the OS not presently used for extending your OS abilities. 


Atari has announced a new service contract anyone can get, even if your Atari is 
out of warranty and even dead!! There are two packages: For the Atari 400 and 
usual peripherals such as the Cassette Recorder, Paddles, Joysticks, Modem and 
Interface for $40 a year; and, For the Atari 400 or 800, Disk Drives, printers, RAMs, 
etc. for $120 a year. These can be expanded to 3 years. A fantastic deal if you have 
much equipment and good at any Atari service station. Call 1-800-538-8543 for 
details. 


Meteor Storm reviewed by Brian is the first from a local ACE member to 
become a commercial program. Written by a teenager who taught himself how to 
program in machine language using De Re Atari, aided by another self-taught 
teen, it is a fine original game and has been a hit at our meetings. 
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x It is getting close to Christmas, and we will again have a Christmas Disk of all х 
4 ош Best programs since the “Best of 1982” 72 disk, as well as a “Ruth’s Pilot” Ж 
+ disk by Ruth Ellsworth, a disk full of educational programs for the whole family. 4 
4 There will also be something different: Alliance Software has produced a well < 
4 documented high-speed disk copier which will copy a disk with one drive in two 4 
4 passes and at high speed. This is not a pirate copier, just a fantastic convience. It х 
4x also makes multiple copies, allows you to see the data being copied and has other 4 
& features. Alliance has sold ACE a licence to sell copies to our members only. For 4 
Xx the month of December only, the above disks are only $10 each. After that, $15 + 
X% each. Order from Chuck and Jody Ross. They will not be shipped until December 44 
5х so you will recieve them for the holiday season. ч 
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и Е x 
Ellsworth: Pilot Listing $ 
Sa A E aE зе ха — ETT 
820 JY: COUNTER j 
830 T: % 
10 R: TIMED ADDITION ROUTINE 840 POS-10-18 x 
y * * + 
А. в — 850 Т:ТНЕ ANSWER 15 #С Гиве inverse x 
i PIER video for the words: THE ANSWER IS © 
50 R:EUGENE, OREGON 97405 860 РА:60 ні 
60 C:#N=0 870 J: #RIGHT ре 
қ Үз $ х 
80 С:9В1373-16 890 ¥RICHT Ї 
100 WRITE:5, 3 910 Т#С=1): 1 4 к 
— 920 Ti#C=2): 2 $$ х 
* 930 Т(#С=3): 3 %% x 
КЕЕ 940 Т(#С=4): 4 вро а 
ч» —— 950 Се сет" д 
160 —— ры ADDITION 5 ад) Ы 
:5, : ж 
ranged 970 т‹#С=7): 7 ССС В 
980 Т(4с-81: 8 нн | 
eo ext — 990 Т(#С=9): 9 ОУ» 
КӨНЕРГЕН 1000 ТІ4С-10): 10 ЖККККІКЖЯЖ а 
À : & 
P0 96:00 1020 Т(4С-11): 11 ЖӘКЕ + t 
230 J(@BS3279=6) : СТАРТ заде + 
Sete ра 1040 TI#C=14): 14 ЖЖЖЯЖЕКІІК ReRe к: 
ы быр 1050 Т(#С=15): 15 ЖЕКЕ 55050005 
кеу аал 1060 Т(4С-16): 16 KOKO бб à 
г жай 1070 Т(#С=17): 17 ЖӘИЕ (ССС È 
:5, PROGRAM NAME 1080 Т(40-18): 18 ЖК HHH X 
2В0 R:WAIT UNTIL START 15 HIT 1090 ТІ4С-19): 19 ЖЕЖЖЖЖЖЖЖЖ )))))))) & 
290 Р05:2,5 › а 
300-С:0В755-4 1100 ТІС-20): 20 ЖЖК Жүк 5 
310 WRITE:S, TIMED ADDITION t к 
320 R:WAIT UNTIL START IS HIT 1110 С:#р=#р+1 5 
ay РЕ 1120 PA: 60 4 
350 J(@B53279=6) : #START 1140 Е. % 
340 R:ACE NEWSLETTER * 
370 START “al 2 
1160 Р05:10,8 К 
371 R:ROUTINE TO COUNT ELAPSED TIME 1170 Т:ТНЕ ANSWER 15 4С 3 
372 С:#Т=@В18%65536+@В19Ж256+@В20/680Г во у. артснт & 
Internal clocl set - jiffies/60 to gi 1190 XCOUNTER + 
x 
нина 1200 Т:) х 
* дыр 1210 Р05:10,8 x 
pent 1220 T:YOU ANSWERED #R RIGHT js 
popes ITION 1230 Р05:10,10 5 
молая 1231 C:#N=#N-1 x 
— 1240 Т:00Т OF #N PROBLEMS 5 
БЕ м 1250 Р05:10,12 х 
— 1255 C:#X=@B18%6553964@B19%2564@B20/60 = 
pig Ni 1256 б:#б=#Х-#Т Е: 
oe мр 1260 Т(4С(60):1Н #6 SECONDS = 
(#0): 0 1270 Т(#6)60):1М #6/60 MINUTES x 
500 T(#A=1): 1 $ ‘a 
1280 E: 
510 Т(ФА=2): 2 $$ x 
520 T(#A=3): 3 111 e Te Te Te Te Te D IA XA IA A XA IA AG XG Ag XG IG AG G DG X IA IG XG XG G NA A NG YG à 
530 Т(#4=4): 4 Әгәр 3 Chastain: 
540 Ti#a=5): 50555: с printer 
550 Т(ФА=6): 6 б! * "ШЕ атса сог vide 2222 19. 
560 TI#A=7): 7 (A + И 
—6 % 0110 ;PROGRAM 1 - PRINTER HANDLER 
OTAI 295000099 ra 0120 PORTA=$D300 ;PIA - PORT A DATA 
ж-а Акау кашу Š 0130 PORTB=$D901 ;PIA - PORT в DATA 
ода ақа x 0140 PACTL=$D302 ;РІА - PORT А CONTROL 
Se олинди % 0150 PBCTL=$0303 ;PIA - PORT В CONTROL 
к ДЕА © 0160 CR=$9B ; ATARI EOL CHARACTER 
— — х 0170 ACR=$0D ; ASCII CR 
ША болы х 0180 SUCCES=$01 ;С10 SUCCESS STATUS 
— Z 0190 PTEMP=$1F ; TEMPORARY STORAGE 
үр? — — 0200 DEVTAB=$031A ; DEVICE TABLE 
аі): 25276 х 0210 PRNBUF=$03C0 ; PRINTER BUFFER 
PTS * 0220 %=$0600 
880 ТІ48-6): & Ғғ * 
% 0230 PST .ВҮТЕ 0 
079 TEBET): -aZ СК x 0240 .ВҮТЕ PND-PST#127/128 
700 Т(#В=8): 8 44444444 & ` а 
710 TI#B=9): 9 ооо» 5 0290 WORD PST 
22040 0260 WORD PINIT 
720 Ti#B=10): 10 ЖЖ  * 24 
ie чанак х 0870; жж BOOT CONTINUATION Жіж 
ж APA % 0280 LDA #$3C ; TURN OFF CASSETTE MOTOR 
OT + * 0290 STA PACTL 
750 Р05:10,14 ў 
% 0300 JMP MOVE 
740 Т: ж 
770 С:#С-#АНВ ИИ ая 
0 шада ү р 0320 ; ЖЖ INITIALIZATION ROUTINE ЖҰЖ 
нд ы х 0330 PINIT LDA #$38 ; SET TO CONFIGURE PORTS 
am el gees: х 0340 STA PACTL 
у: я 0350 5ТА PBCTL ( 
: х 0360 LDA #$FF ; SET PORT В TO OUTPUT 


0370 
0380 
0390 
0400 
9410 
0420 
0430 
0440 
0450 
0460 
0470 
0480 
0490 
0500 
0510 
0520 
0530 
0540 
0550 
0560 
0570 
0580 
0590 
0400 
0610 
0620 
0430 
0640 
0650 
0660 
0670 
0680 
0490 
0700 
0710 
0720 
0730 
0740 
0750 
0760 


0770 


0780 
0790 
0800 
0810 
0820 
0830 
0840 
0850 
0860 
0870 
0880 
0890 
0900 
0910 
0920 
0930 
0940 
0950 
0940 
0970 
0980 
0990 
1000 
1010 
1020 
1030 


5ТА РОВТВ 
LDX #$20 ; SET PORT A BIT 5 TO OUTPUT 
STX PORTA 
LDA #$3C ; SET TO DATA MODE 
STA РАСТ. 
STA PBCTL 
STX PORTA 
ШҮ #0 ; ADD Р TO DEVICE TABLE 
ADI1 LDA DEVTAB,Y ; SEARCH FOR Р OR 0 ENTRY 
BEA ADIZ 
CHP #'P 
BEQ ADIZ 
INY 
INY 
INY 
СРҮ #30 
BNE ADIL 
BRK 
ADI2 LDA #'P ; PUT Р IN DEVICE TABLE 
STA DEVTAB, Y 
LDA #PST&255 ; PUT HANDLER ENTRY VECTOR INTO DEVICE TABLE 
STA ПЕУТАВҒ1,Ү 
LDA #PST/256 
STA DEVTAB+2,Y 
RTS 
; ЖЖЖ WRITE ROUTINE ЖЖЖ 
PHWRIT STA PTEMP ; SAVE CHARACTER FROM CIO 
LOOP LDA PORTA ; CHECK FOR ERROR 
BMI ERROR ; BRANCH IF ERROR 
ASL A ; CHECK FOR BUSY 
BPL LOOP ; LOOP IF BUSY 
LDA PTEMP ; RESTORE CHARACTER 
CMP #CR ; ATARI EOL ($9B) TO ASCII CR 1800) 
BNE CONTI 
LDA #ACR 
CONT1 EOR #$FF 
STA PORTB ; SEND DATA 
JSR TIME ; KILL SOME TIME 
LDA #0 ; STROBE PRINTER 
STA PORTA 
JSR TIME ; KILL SOME TIME 
LDA #$20 
STA PORTA 
PHCLOS LDY #SUCCES ; RETURN STATUS TO CIO 
TIME RTS 
; ЖЖЖ STATUS ROUTINE ЖЖЖ 
PHSTAT LDA PORTA 
BPL PHCLOS ; RETURN IF NO ERROR 
ERROR LDY #884 ; RETURN ERROR 138 TO CIO 
BADST RTS 
; ЖЖЖ CODE NOT SAVED IN RAM ЖЖ 
MOVE LDY #14 ; MOVE HANDLER VECTOR TABLE 
MOV LDA LOC,Y 
STA PST,Y 
DEY 
BPL MOV 
ас 
RTS 
; ЖЖЖ HANDLER VECTOR TABLE ЖЖЖ 
LOC .WORD PHSTAT-1 ;0РЕМ ADDRESS 
WORD PHCLOS-1 ;CLOSE ADDRESS 
WORD BADST-i ; READ Е 
WORD РНЫРІТ-1 ;WRITE ADDRESS 
WORD PHSTAT-1 ;STATUS ADDRESS 
WORD BADST-1 ;SPECIAL 
JMP BADST 
PND . END 
a ———————— 


Chastain Listing 2 


0100 .OPT OBJ 

0110 ;PROGRAM 2 - CREATES CASSETTE BOOTABLE Т 
APE. 

0120 ;ADAPTED FROM ATARI USER'S MANUAL. 
0130 ; 

0140 ;GIVEN: 

0150 PST = $0600 ;PROGRAM START ADDRESS 
0160 PND = %0690 ;PROGRAM END ADDRESS 
0170 FLEN= PND-PST+127/128%128 

0180 ; 

0190 ;ATARI 05 EQUATES 

0200 OPEN = $3 


0210 OPNOT = $8 
0220 PUTCHR = $B 
0230 CLOSE = $C 


Go to page 8 
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VULTURES LISTINGS 
pS 


0 REN koo ЖЖЖ 
1 REM ЖЖ ACE NEWSLETTER ЖЖ 
2 REM *K3662 VINE MAPLE ЖЖ 


З REM ЖЖ EUGENE, OR ЖЖ 
4 REM ЖЖ 97405 жж 
5 REM ЖЖ $10 ҮА ж 
6 РЕМ kk Моу 1982 ЖЖ 


7 REM OOOO OEE 

10 REM SOOO aX 

20 REM ЖЖ VULTURES III ЖЖ 

30 REM ЖЖ5ТАМ OCKERS 8/2ЖЖ 

40 ГЕМ ОООО ХА ЖЖ 

90 GRAPHICS .18:Р05ІТІОМ 5,3:7 #4;"vultures":POSITI 

ON 8,5:7 ЖІП" 

100 PMHI=1547 : ІМАСЕ0=1552: IMAGE1=1553: IMAGE2=1554: 

ІМАСЕЗ=1555 :НР053=19559 : 0р053=1567 

110 FLAGO=1568 :FLAGI=1569 : FLAG2=1570 

112 COL0=52:COL1=24: COL2=32 : COL3=244: BKCOL=144 

120 0р050=1564:0Р051=1565: YP0S2=1566 : INGPT=1584 

130 НР050=1556 :НР051=1557 :Нр052=1558 : RAMTOP=106 : РМ 

BASE=54279 : SDMCTL=559 : GRACTL=53277 

140 PCOLRO=704: PCOLR1=705 : PCOLR2=706 : PCOLR3=707 : PO 

KE 1577,10 

150 ПІН B$(20) BBS(2C) ,V$(2) :¥$(1)=CHRS (136) :0%(2) 

=CHR$ (138) : BB$(1)=CHR$ (0) :BB${20)=CHRS(0) :ВВ% (2) =В 

B$ 

151 DIM CL$(38):CL$(1)=" ":CL$(38)=" ":CL$(2)=CL$ 

152 DIM Х%(38),Х1%(38):Х%(1)="Х":Х%(38)="Х":Х%{2!= 

Х$:Х1$%(1)="х":Х1$(38)="х":Х1$(2)=Х1% 

153 DIM LTNG$(46):RESTORE 154:FOR Ісі ТО 44:READ А 
:_ТМСФ(І , I)=CHR$(A):NEXT I 

154 DATA 124, 29,41,29 ,30,124, 29 ,30,30,40 ,29,30,30, 

40,29,30,124,29,40,29,124,29,41,29,41,29,41,29,30, 

124,29 

155 DATA 30,30,41,29,30,30,41,29,30,30,41,29,30,30 
‚124 

156 DIM ЕВА5$(46):ВЕ5ТОВЕ 157:FOR I=1 TO 46:READ А 
:ЕВА59(1,1)-СНН9(4):МЕХТ І 

157 DATA 32,29,32,29,30,32,29,30,30,32,29,30,30,32 
,89,30,32,29,32,29,32,29,38,29,32,29,32,29,30,38,2 

9 

158 DATA 30,30,32,29,30,30,32,29,30,30,32,29,30,30 
,38 

160 COUNT=20 : PERCH=180 : BIRDS=0 :DIF=3:POKE 1555,8 

200 GOSUB 6000:С0508 2000:POKE 764,255:7 CHR$(28); 
"PRESS START TO ВЕСІМ":? "АМҮ KEY TO PAUSE” 

202 7 "Beware the golden vultures !!!":GOSUB 1000 

210 A=PEEK(RAMTOP)-14:POKE PMBASE ,A:POKE РИНІ ,А: 50 

UND 0,0,0,0:A=U5R(1534) :GRAPHICS 0:GOSUB 5000 

220 POKE SDMCTL,62:POKE GRACTL ,3:POKE 764,255 

230 COUNT=20 : РЕВСН=180 : BIRDS=0:DIF=3:POKE 1555 ,8:G 

OLD=500 : SCORE=0 

255 SHIELD=20:FOR J=SHIELD TO 23:POSITION 1,J:7 X$ 
‚1НЕХТ J:POSITION 0,0:7 " dif score high" 

260 POKE PCOLRO,243:POKE РСО А1 ,243:POKE РСО Вг ,24 

3:POKE PCOLRS , 40 

270 POKE 752,1:FOR I=2 TO 36 STEP 2:POSITION 1,1:7 
V$:NEXT І: BLEFT=18:BLAND=0:POKE 1575,0:HIT=0 

275 POSITION 1,SHIELD-1:7 CL$ 

277 POSITION 22,0:7 DIF:POSITION 26,0:7 SCORE: POST 
TION 34,0:7 HIGH 

280 RESTORE 285:FOR 1=1564 TO 1571:READ A:POKE I,A 
-NEXT I:POKE 1559,100:РОКЕ 1783,11 

285 DATA 0,0,0,150,0,0,0,0 
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290 B$=BB$ 

299 POKE 712,BKCOL:POKE 1574,0:РОКЕ 708,COLO:POKE 
709,COL1:POKE 710,COL2:POKE 711,COL3 

300 COUNT=COUNT-1:A=PEEK(1575):IF НІТ(А THEN HIT=A 
-POKE 1788, 129:SCORE=SCORE+108DIF : POSITION 26,0:7 
SCORE 

310 IF PEEK(FLAGO)=0 AND COUNT<O THEN GOSUB 905:Р0 
КЕ (FLAGO),1:POKE (HPOSO) ,40+Rx8:POKE УР050,48 

320 IF PEEK(FLAGO)=1 THEN POKE УР050,РЕЕК(УР050)40 
IF 

330 IF PEEK(VPOSO)>=PERCH THEN POKE FLAGO,0:A=INT( 
(РЕЕКІ(НР050)-48) /4) :GOSUB 950:POKE НР050,0:РОКЕ VP 
050,32 

340 IF PEEK(FLAG1)=0 AND COUNT(O THEN GOSUB 905:Р0 
KE (FLAGL),1:POKE (HPOS1) ,40+RX8:POKE VPOSI, 48 

950 IF PEEK(FLAG1)=1 THEN POKE /Р051,РЕЕКІР051)40) 
IF 

360 IF PEEK(VP0S1))=PERCH THEN POKE FLAGI ,0:A=INT( 
(РЕЕКІНР051)-48) /4) :С050В 950:РОКЕ НР051,0:РОКЕ VP 
051,32 

370 IF PEEK(FLAG2)=0 AND COUNT<O THEN 60508 905:Р0 
КЕ (FLAG2) ,1:POKE {HPOS2) ,40+Rk8:POKE YPOS2, 48 

380 IF PEEK{FLAG2)=1 THEN POKE УР052,РЕЕК(/Р052140 
IF 

390 IF PEEK(VPOS2))=PERCH THEN POKE FLAG2,0:A=INT( 
(РЕЕК(НР052)-48) /4):GOSUB 950:РОКЕ HPOS2,0:POKE VP 
052,32 

392 IF BLAND)2 THEN 500 

394 IF BLEFT<1 THEN 600 

400 FLASH=FLASH-1:IF FLASH(O THEN GOTO 550 

405 IF PEEK(1574)>0 THEN GOTO 650 

410 GOLD=GOLD-1:IF GOLD<O AND BLAND)3 THEN GOLD=10 
0%(9-DIF) -DIF=DIF+2 : XCNT=30 : POKE 704,44: POKE 705,4 
4:POKE 706,44 

420 IF ХСМТ)0 THEN XCNT=XCNT-1:IF XCNT=0 THEN DIF= 
DIF-2:POKE 704,243:POKE 705 ,243:РОКЕ 706,243: POSIT 
ION 22,0:7 DIF 

425 IF PEEK(764)<255 THEN GOSUB 1000 

430 GOTO 300 

499 REM Жі REMOVE А SHIELD Жж 

500 POKE 1789.207:SVCOL=COL1:FOR I=1 TO 6:РОКЕ 708 
,PEEK(708)+2: POSITION 1,SHIELD:? X1$:FOR J=1 TO 5: 
NEXT J 

502 POSITION 1,SHIELD:? X$:FOR J=1 TO 5:NEXT J:NEX 
Т I:POSITION 1,SHIELD-1:7 CL$:POSITION 1,SHIELD:? 
CL$ 

508 SHIELD=SHIELD+1 :PERCH=PERCH+S: IF SHIELD=23 THE 
N 700 

510 DIF=DIF-1:IF DIF<2 THEN DIF=2 

520 GOTO 270 

550 POKE 1789,171:POKE 712,40:Х-РМ0101Ж23%8:Р051Т1 
ON X,2:? LTNG$; :POKE 712,15:POSITION X,2:7 ERAS$; : 
POKE 712, BKCOL 

555 A=9-DIF :FLASH=RND{0)k30KA+10%A 

560 GOTO 405 

599 REM ЖЖ REMAINING BIRDS LEAVE ЖЖ 

600 DIF=DIF+1:IF DIF)4 THEN DIF=6 

612 FOR 1-1 TO 150 

614 Р-РЕЕК(УР050):ІҒ Р)0 THEN POKE VPOSO,P-1 

616 Р=рЕЕК (0р051) :ІҒ Р)0 THEN POKE УР051,Р-1 

618 P=PEEK(VPOS2):IF Р)0 THEN POKE УР052,Р-1 

620 NEXT I:POKE 77,0:GOTO 270 

649 REM ЖЖ HIT BY LIGHTNING ЖЖ 


650 POKE HPOS3,0:POKE 53278,0:РОКЕ 1789,189:POKE 7 


07, BKCOL 
655 FOR 1-8 TO 48 STEP 4:POKE 712,1:FOR J=1 TO 30: 
NEXT J:NEXT I:POKE 712, BKCOL 


Listing 


660 FOR 1=1 TO 200:NEXT І:РОКЕ 1788,79:FOR J=1 10 

DIF 

665 SCORE=SCORE-100:1F 5СОРЕ(0 THEN SCORE=0 

670 POSITION 26,0:7 SCORE;" ":FOR 1=1 TO 100:NEX 

T L:NEXT J 

690 POKE 707 ,40:GOTO 270 

700 IF SCORE)HIGH THEN HIGH=SCORE 

705 POKE GRACTL,0:FOR 1=53241 TO 53264:РОКЕ 1,0:МЕ 
XT I 

710 GRAPHICS 18:POSITION 5,3:7 #6;"final score " 

720 POSITION 8,5:7 #6; SCORE 

730 POSITION 5,8:7 #6; "РРЕ55 START":POSITION 4,9:7 
#6;"TO PLAY AGAIN" 

740 IF РЕЕК(53279)‹)6 THEN 740 

750 GRAPHICS 0:GO5UB 5000:0070 220 

900 REM ЖЖ START ANOTHER BIRD Ж% 

905 COUNT=INT{RND(0)%30) 

910 R=INT(RND(0)%18)+2:IF ASC(BS(R)))0 THEN 910 

920 BS(R,RI=CHR$(1):POSITION 2Ж(8-1),1:7 " “БЕР 

T=BLEFT~1 : RETURN 

949 REM ЖЖ BIRD AT SHIELD ЖЖ 

950 POSITION A, (PERCH-32)/8:7 0%; :РОКЕ 1788, 150:BL 

AND=BLAND+1 : RETURN 

999 REM ЖЖ PAUSE ROUTINE x$ 

1000 POKE 764,255 

1010 IF РЕЕК(53279)(26 THEN 1010 

1020 RETURN 

1999 REM ЖЖ VBI ROUTINE ЖЖ 

2000 RESTORE 2001:DIM У8%(348):ҒОВ I=1 TO 348:READ 
A: VBS{I , I1)=CHR$(A}:NEXT І 

2001 DATA 72,138,72,152,72 

2002 DATA 206,40,6,173,40,6,16,29,173,41,6,141,40, 
6,162, 2,254,16,6,254,16,6,189,16,6,201,8,144,5,149 
,0,157,16,6 

2004 DATA 202,146,235 

2005 DATA 174,120,2,224,11,208,3,142,247,6,224,7,2 
08 3,142 ,247,6 

2006 DATA 174,247,6,173,23,6,201 200,176 ,10,224,7, 
208,6,238,23,6,238,23,6,201,48,144,10,224,11,208,6 
2008 ІМТА 206,23,6,206,23,6 

2010 DATA 24,173,11,6,105,4,133,204,162,0,134,207, 
160, 0,132,203, 189,20, 6,157, 0,208,189, 12,6,221,16,6 
,208,8,189 ,28 

2020 DATA 6,221,24,6,240, 69,189, 16,6,157,12,6,189, 
28,6,157,24,6,165,209, 221 28,6, 240,10, 169,0, 145,20 
3,230 ,203 ,240 

2030 DATA 42,208,239, 189,14,6,170,189, 48,6,133,205 
189, 49, 6,133,206 ,177,205 ,240 14,145 203,230 ,205,2 
08,2 

2040 DATA 230 ,206,230,203,240,10,208,238,189,0,145 
,803,230,203,208,250,230,204,166,207,232,134,207,2 
24,4,144,154 

2042 DATA 173,15,208,240,34,106,144,2,162,0,106,14 
4,2,162,1,106,144,2,162,2,169,0,157,28,6,157,32,6 
2044 DATA 141,30,208,238,39,6,169,2,141,132,6 
2046 DATA 173,7,208,240,3,141,38,6 

2050 DATA 174,252,6,240 ,36,206,248,6,16,31,189,0,6 
,141,0,210 ,232,189,0,4,141,1,210 

2052 DATA 232,189,0,6,240,9,141,248,6,232,142,252, 
6,208,3,141,252,6 

2054 DATA 174,253,6,240,36,206,249,6,16,931,189,0,6 
,141,8,210,232,189,0,6,141,3,210 

2056 DATA 232,189,0,6,240,9,141,249,6,232,142,253, 
6,208,3,141,253,6 Е 

2080 DATA 104,168,104,170,104,76,98,228 

2090 GOSUB 3010:GOSUB 4100: RETURN 

3000 REM Ж PAGE 6 - INSERT VBI ROUTINE Ж 

3010 RESTORE 3020:FOR 1=1536 TO 1545:READ A: POKE I 
‚А:МЕХТ I 

3020 DATA 104,160,0,162,0,169,7,76, 92,228 

3030 A=ADR(VB$) :B=INT(A/256) :C=A-2564B : POKE 1538,0 
:РОКЕ 1540 ,B: RETURN 

4099 REM ЖЖ SOUNDS ЖЖ 

4100 RESTORE 4120:FOR 1=1665 TO 1766:READ A:POKE І 
,A: NEXT I 

4120 DATA 60,170,3,54,170,3,48,170,3,45,170,3,40,1 

70 ,3,36,170,3,0,0,0 

4132 DATA 10,204,3,11,204,3,10,204,3,9,204,3,8,204 
,3,7,204,3,0,0,0 

4142 DATA 20,143,1,80,143,3,90,140,6,95,137,20,100 
,134,30,0,0,0 

4144 DATA 13,12,20,16,143,30,12,8,40,16, 132, 40,23, 
130 ,70,0,0,0 


6 


Go о. расе ai 


Ockers Vulture Listing cont 


4145 DATA 40,174,20,50,172,20, 60,170, 20,70, 168,20, 
"80, 166,20,90,164,20,105,162,20,0,0,0 

4200 REM Жі IMAGES ЖЖ 

1210 DIM ¥0$(4):RESTORE 4220:FOR 1-1 TO 4:READ А: 
O$(T)=CHRS(A) :МЕХТ I 

1215 VO=ADR(VO$) :РОКЕ IMGPT+1,INT(V0/256) :POKE IMG 
PT, VO-256XPEEK ( INGPT+1) 

4220 DATA 36,90,153,0 

4230 DIM V1$(5):RESTORE 4240:FOR 1=1 TO 5:READ A:¥ 
1901)=СНАФ(А) NEXT I 

4235 V=ADR(V1$) :POKE INGPT+3, INT(V1/256) :POKE IMG 
PT+2, V1-2564PEEK | IMGPT+3) 

424) DATA 66,165,24,24,0 



















ккїїїїйїїйїйїйїййїїїйїйїйїййййнй 


2$(1)=CHRS(A) :МЕХТ I + 


SOUNDS LISTING 


0 REM Saco 
1 REM ЖЖ ACE NEWSLETTER ЖЖ 
2 REM 8435662 VINE MAPLE ЖЖ 


З REM ЖЖ EUGENE, OR ЖЖ 
4 БЕН ЖЖ 97405 xx 
5 REM ЖЖ $10 YR жж 
6 REM ЖЖ Nov 1982 хх 


7 ПЕМ SOOO ЖЖЖ ЖЖЖ 

8 REM %500М05 UTILITY ВҮЖ 

9 REM Ж STAN OCKERS 8/2 Ж 

100 GOSUB 5000:GOSUB 3000: A=USR(1536) : SOUND 0,0,0 
4250 DIM V2$(5):RESTORE 4260:FOR I=1 TO 5:READ A:V ja 0 


110 DIM А%(3) ,Р%(40),0%(40) ,1%(40) ,7%(40) ,2%(40) М 


4 , 1 


x 
4955 V2=ADR(V2$) :POKE IMGPT+S, INT(V2/256) :РОКЕ IMG , 8140) ,V${4) 


PT+4,V2-256XPEEK { IMGPT+5) 
4260 DATA 195,36,24,24,0 


+ 120 7$(1)=СНН$(0):27$%(40)=СНН$%(0):7%(2)=7%:НЕ5ТОНЕ 
— 130:FOR I=1 TO 4:READ А:0%(1,1)=СНАФ(А) :МЕХТ I:VN= 


4270 DIM V3$16):RESTORE 4280:FOR 1=1 TO 6:READ A: » 4-poy 


3$(T)=CHRS(A):NEXT I 


5 130 DATA 2,7,12,17 


4275 V3=ADR(V3$) :POKE IMGPT+7 , INT(V3/256) : POKE IMG * 280 P$=Z$ : D$=Z$ :L$=Z$ - T$=Z$ 


PT+6 , V3-256xPEEK { IMGPT+7) 


4280 DATA 129, 66,36 ,24,24,0 & 


+ 290 GRAPHICS 0:РОКЕ 703,4:POKE 752,1:POSITION 2,0: 
7 46;" "POSITION 3,4:7 #6;"PITCH": POSITION 3,9:7 


4$(1)=CHRS{A) :NEXT I 
4292 V4=ADR(V4$):POKE IMGPT+9, INT(V4/256) :POKE IMG 


х 292 POSITION 3,14:7 #6; "1. О0ОМЕ55":РОЅІТІОМ 3,19:7 
+ #6; "DISTORTION" 


рт+8,04-256%РЕЕК ( IMGPT+9) х 300 У-45С(9%(УМ)) : POSITION Р,0+1:7 #6;" "; :S=STICK 
4296 DATA 255,255,255 255,255, 0 + (0):ІҒ 5ТВІС(0)=0 THEN 350 

4300 RETURN 4 310 IF (5-6 OR 5-10 OR 5-14) AND YN)1 THEN VN=VN-1 
4999 REM Жі CHANGE DISPLAY LIST Ж% х 320 IF (5-5 OR 5-9 OR 5=13) AND YN<4 THEN UN=UNt1 
5000 DL=PEEK(560)+256%PEEK (561) 5330 IF (5-5 OR 5-6 OR 5-7) AND Р(38 THEN Р=Р+1 
5010 POKE DL+3,70:POKE DLt6,6:FOR I=DL+7 TO DLt28: «340 IF (5-9 OR 5-10 OR 5-11) AND P)1 THEN р=р-1 


POKE 1,4:МЕХТ I: RETURN 
LTURES III Жк" 


".7 "removing protective layers above" 
6020 7 “you! 


рреаг.":? 
6030 7 " 


п times” 
When you have removed а" 


f you get hit by lightning your" 


х 
х 350 
6000 GRAPHICS 0:РОКЕ 752,1 :РОЅІТІОМ 8,1:7 “ЖЖЖ VU 5360 
* 370 
6010 POSITION 5,3:7 "The vultures are landing and х 380 
+ 

х 370 
There are three layers and ":7 "ever + 499 
y time three vultures land":? "опе layer will disa J 410 


You can stop the birds with":? "а remav + доу 
al device controlled by":7 “joystick 0. You get te 5 495 
+ 

х 430 
6040 7 "the difficulty for each bird you":? "stop. + 440 
+ 450 
6050 7 "flock, the difficulty will go ир.":7 :? "IÈ 460 
ў 470 GOSUB 6000 


М=А5С (0% (00) ) : POSITION Р,0+1:7 #6; "*"; 

IF VN=1 THEN A=ASC(P$(P)) :MAX=254: DEL=2 

IF VN=2 THEN A=ASC(D$(P) ) :МАХ=127: DEL=1 

IF VN=3 THEN А=А5С(ЕФ(Р) ) : MAX=15:DEL=1 

IF VN=4 THEN A=ASC(T$(P)) :MAX=14:DEL=2 

IF STRIG(O)=1 THEN 425 

IF (5-14 OR 5-6 OR 5=10) AND ACMAX THEN А=А+0Е 


IF (5-13 OR 5-5 OR S=9) AND А20 THEN A=A-DEL 
IF PEEK{53279)=6 THEN GOSUB 4000:GOTO 490 
IF VN=1 THEN P$(P,P)=CHR$(A) 

IF YN=2 THEN D$(P,P)=CHRS$(A) 

IF YN=3 THEN L$(P,P)=CHRS(A) 

IF VN=4 THEN T$(P,P)=CHR$(A) 


6060 7 "score will decrease by а hundred":? "tines & 490 GOTO 300 


the difficulty.":7 :7 "Just a sec..." 


53000 REM Ж PAGE & - INSERT VBI ROUTINE Ж 
43010 RESTORE 3020:FOR 1=1536 TO 1545:READ А:РОКЕ I 


Ж „. 
5 A:NEXT I 


6090 RETURN 
LLI IS IA IA AA IJ AA ЕЕ IR IS I IA IG IA I MAM BB а 
GRRR GI A A L E R A ақ ққ адр A SS 


TINY TEXT REVISITED 
LISTING 

НН су 

0 REM % ACE NEWSLETTER, 3662 VINE MAPLE EUGENE, OR 

97405 $10 YEAR 

1 REM ЖЖЖЖ TINY ТЕХТ ЖЖ 

2 REM 

3 REM Stan Ockers бері-81 

4 REM ACE Newsletter Nov-81 

5 REM 

6 REM Mod by Jia Carr 01-OCT-82 

7 REM 

12 DIM SP$(40):FOR I=1 TO 40:5Р$(1,1)=" ":NEXT I 

14 DIM 5$(45) ,1$(120) ,A$(128) :SIZ=FRE(0)-50: DIM T$ 

(SIZ) :FOR Ісі TO 45:READ A:S$(1)=CHRS(A):NEXT І 

20 DATA 104,104,133, 204,104,133 203,104, 133,206, 10 

4,133,205, 104,104,168, 162, 0,161 203,145 203, 198,20 

3,145 

30 DATA 203,201, 255,208 ,2,198, 204,165, 203,197,205, 

208, 236, 165,204,197 ,206 ,208 ,230 ,96 

40 FOR 1=1536 TO 1643:READ A:POKE І,А:МЕХТ I 

50 DATA 104,104, 133,204,104, 133,203,104, 133,206,10 

4,133,205 ,162, 0,169,240 ,32,53,6,169,40,32,91,6 

60 DATA 165,207 ,208,8,149, 160 ,32,91,6,24,144,10,16 

9.40 ,32,53,6,169,120,32,91,6,169,240,32,53,6,96 

70 DATA 133,208, 161,203,201 ,96,176,11,201,32,176,5 

(24,105, 64,208, 2,233, 32, 129,205,230 ,203,208,2 

80 DATA 230 ‚204,230 , 205,208, 2,230 ,206 ,198 208,208, 

221 96,133,208, 169, 0, 129, 205,230,205 ,208,2 

90 DATA 230 206,198,208 ,208 , 244,96 


BURBERRY AG BARA UBB BABA RAR BR аллы надан 
BARB XF IP G рар IG. IG IG IG IS XR ZG XG. XG XG RG RG IG IG RY RG RG IG XG IG. AG IR IG IG р IG. IG. IGG IG IG. XA 


110 P=241:POKE 207,0:POKE 82,0:0РЕМ #2,4,0,"Е:":Т% 

(1)=".":Т$(480)=".":Т$(2)=Т% 

120 5СВ=РЕЕК(88)+256ЖРЕЕК(89)+120:11=35:1М=1:1Н0=5 

-ТАВ-10:Р5-66:ҒҒ-6:6070 500 

290 7 "INSERT TEXT OR ... 

EM SELECT IN INVERSE 

300 POSITION 0,0:7 SIZ-LEN(T$);" FREE 

0):ІҒ 5-15 THEN 330 

305 IF 5-14 AND P<LEN(T$)-320 THEN P=P+40 

310 IF 5=13 AND P)280 THEN Р-Р-40 

315 IF 5-11 AND P<LEN(T$)-280 THEN P=P+1 

320 IF 5-7 AND P)241 THEN P=P-1 

390 A=USR(1536,ADR(T$)+P-241 , SCR) 

335 К-0 

340 POKE 53279,8:PK=PEEK(53279) :IF PK=5 THEN GOSUB 
900 

350 IF PK=3 THEN 500 

360 IF РЕЕК(784) (255 THEN 400 

365 К=К+1:1Е К(10 THEN 340 

370 IF STRIG(0)=0 THEN P=LEN(T$)-240:POKE 207,0 
380 GOTO 300 

400 POSITION 0,10: INPUT #2; 1$:PK=PEEK (207): IF PK=0 
THEN А$="" 

405 LISLEN(I$) :LT=LEN(T$) : IF 11-0 THEN 460 


PRESS SELECT TO EDIT":R 


":S=STICK( 


407 IF LI+LT>SIZ THEN POSITION 0,1:7 “OUT OF SPACE 


":60Т0 300 
410 IF PK=1 THEN А$=Т$(Р,Р+39):1Е T$(P+39, P+39)=" 
“ THEN I$(LI¢1)="_":LI=LI+1 
420 LATLEN(A$) :AD=ADRIT$):IF LIDLA THEN A=USR(ADRI 
5$) ,AD+LT-1,AD+P-2,, LI-LA) 
430 TS(P,PHLI-1)=I$ 7 


3020 DATA 104,160,0,162,0,169,7,76,92,228 
3030 A=ADR(VB$) :B=INT(A/256) :C=A-256XB:POKE 1598,C 


:POKE 1540, В: RETURN 


4000 5Ау-Р:Р-0:Р5-1536:7 CHR${125) 
4010 Р-Р41:Р5-Р541 

4020 PIT=ASC(PS${P))/2:LD=ASCIL$(P)}: 
:ІҒ DUR=0 THEN 4100 


-45С(0%(Р)) 


4030 POKE Р5 РІТ:Рв-Р541:7 PIT;","; 

4040 DIS=INT(ASC(T$(P))) :CTL=164DIS+LD: IF CTL=0 TH 
EN CTL=LSTCTL 

4050 LSTCTL=CTL:OOKE pS ,CTL:7 CTL;",";:PS=PS+1 
4070 POKE PS ,DUR:? DUR;",";:GOTO 4010 

4100 FOR 1=0 TO 2:POKE Р5+1,0:7 "0,";:NEXT I: POKE 
1788,1 i 

4110 P=SAV: RETURN 

5000 RESTORE 5010:DIM VB$(44):FOR I=1 TO 44:READ A 
:МВ%(1,11-СНВ6(А):МЕХТ I:RETURN 

5010 DATA 174,252,5,240,36,206,248,6,16,31,189,0,6 
,141,0,210,232,189,0,6,141,1,210 

5012 DATA 232,189,0,6,240,9,141,248,6,232,142,252, 
6,808,3,141,252,6 
5014 DATA 76,98 228 

6000 AS=STR$(A):L=LEN(A$):FOR I=0 TO 2:IF I<L THEN 
POSITION Р,)-1:7 #6;A$(L-I,L-I); 

6010 IF Ізгі THEN POSITION Р,/-1:7 #6;" "; 

6020 NEXT І: RETURN 


10; SOUND IN VBI ROUTINE 
20 AUDCI = $0201 ; (53761) 
30 AUDFi = $0200 ; 153760) 
40 DURCNT = $5ЕВ 11784) 
50 STRPOS = %ҒС ; (1788) 
60 AREA = 8600 (1536) 
70 = $0000 
80 TUNEL LDX STRPOS ; Position is index 
90 BEG TUNE2 ; No sound 
0100 DEC DURCNT ; Wait 
0110 BPL ТИМЕР 
0120 LDA AREA,X ; Frequency 
0130 STA AUDF1 
0140 INX 
0150 LDA AREA,X ; Control byte 
0160 STA AUDCI 
0170 INX 
0180 LDA AREA,X ; Duration 
0190 BEQ FINI ; Quit if Dur = 0 
0200 STA DURCNT 
0210 INX 
0220 STX STRPOS ; Update string pos. 
0230 BNE TUNE2 ; Skip over 
0240 FINI STA STRPOS ; 0 in String pos. 
0250 TUNE2 NOP 
ZA IS IG XA I IS XS RA IS IS IG IS RA IS RRA BM ABM MM MM MH 2A 
EE A R R AE R RE RE AE R E AE RA IG IG IE BA RA E RA RA RG IE R IS A RA A E й 


440 IF LADLI THEN T$(PtLI)=T$(P+LA) 

450 P=PHLI:T${(LT+LI-LAt )="":POKE 207,0:GOTO 300 

460 IF PEEK{207)=1 THEN 470 

465 IF PCLEN(T$)-279 THEN TS$(P)=T$(P+40) 

470 POKE 764,255:G0TO 300 

500 TRAP 950: 5Т=РЕЕК (520 ) +РЕЕК (561)%*256+4:POKE ST- 

1,79:РОКЕ 5Т%2,7:РОКЕ ST+3,112:POKE 5Т+А, ё: РОКЕ 5T 

+5,6:РОКЕ 5Т%24,65 

510 POKE ST+25,PEEK(560) :РОКЕ СТ+2& ,РЕЕК{ 561) 

515 ОР=0Р+1:1Е ОР=6 THEN OP=1 

520 7 CHR$(125):POSITION 20,0:IF OP=1 THEN 7 "LOAD 

522 IF OP=2 THEN 7 

534 IF OP=3 THEN 7 

536 IF OP=4 THEN 7 

538 IF OP=5 THEN 7 "DISPLAY" 

540 POSITION 0,1:7 “PRESS START TO BEGIN" 

550 FOR D=1 TO 30:NEXT D 

555 POKE 53279,8:ІҒ РЕЕК(53279)-3 THEN 515 

557 IF РЕЕК(53279)(26 THEN 555 

560 POKE 784,255: Р051Т10М 20,1:7 CHR${(125) :POSITIO 

М 0,1:0М OP GOTO 2000,290,590,1500,590 

580 REM ЖЖ E= ESC TAB, ARROWS FOLLOWING LINE I 

М INVERSE ЖЖ 

590 FOR 1=1 ТО 6:7 "8"; :NEXT 1:7? 
TO 6:7 "> NEXT I 

594 POSITION 0,1:7 “SET FORMAT CONTROLS" : POSITION 

0,6:REM NEXT IN INVERSE: 7 "LINE LEFT IN- TAB 
PAGE FORM" 


"EDIT" 
"PRINT" 
"SAVE" 


‘FOR Ізі 


Go to page 8 


Chastain Listing 3 ; 
es | 0540 ADI2 LDA #'P ; PUT P IN DEVICE TABLE 


0100 ;PROGRAM З - PRINTER HANDLER DISK VERSION 0570 STA DEVTAB,Y 
Chastain Listing 2@cont 0110 ; MAKE THIS AN AUTORUN. 5Ү5 FILE 0580 LDA #PST&255 ; PUT HANDLER ENTRY VECTOR INTO D 
0120 DOSINI=$0C ;015К INITIALIZATION VECTOR EVICE TABLE 
0240 CR = %98 0130 PORTA=$D300 ;PIA ~ PORT A DATA 0590 STA DEVTABT1,Y 
0250 ICCOM = $342 0140 PORTB=$D301 ;PIA - PORT В DATA 0600 LDA $057 /256 
0260 ICBAL = $344 0150 PACTL=$D302 ;PIA — PORT A CONTROL 0410 STA DEVTABH2,Y 
0270 ICBAH = $345 0160 PBCTL=$D303 ;PIA - PORT В CONTROL 0620 RTS | 
0280 ICBLL = $348 0170 CR=$9B ; ATARI EOL CHARACTER 0630 ; ЖЖЖ WRITE ROUTINE ЖЖЖ 
a 5. : 2 pog ACR=$0D БЕП CR Oo 0640 PHWRIT STA PTEMP ; SAVE CHARACTER FROM CIO 
9190 SUCCES=$01 ;CIO SUCCESS STATUS 0650 LOOP LDA PORTA ; CHECK FOR ERROR 
0310 ІСАХ2 = $348 | 0200 PTEMP=$1F ;ТЕМРОВАВҮ STORAGE 0660 BMI ERROR ; BRANCH IF ERROR 
0320 CIOV = $Е456 0210 DEVTAB=$031A ; DEVICE TABLE 0670 ASL A ; CHECK FOR BUSY 
0330 ; 0220 PRNBUF=$03C0 ; PRINTER BUFFER 0680 BPL LOOP ; LOOP IF BUSY 
0340 PROGRAM'S ORIGIN 0230 %-%0400 0690 LDA PTEMP ; RESTORE CHARACTER 
0350 Ж- $4000 0240 ; kkk HANDLER VECTOR TABLE ЖЖЖ 0700 CMP #CR ; ATARI EDL ($98) TO ASCII CR ($00) 
0360 BOOTB LDX $$20 0250 PST .WORD РН5ТАТ-1 ;ОРЕМ ADDRESS 0710 BNE CONTI 
9370 LDA #0PEN 0260 .WORD PHCLOS-1 ;CLOSE ADDRESS 0720 LDA #ACR 
0380 STA ІССОМ,Х 0270 .WORD BADST-1 ;READ 0730 CONTI EOR #$FF 
0390 LDA ЖОРМОТ 0280 .WORD PHWRIT-1 ;WRITE ADDRESS 0740 STA PORTB ; SEND DATA 
0400 STA ІСАХ1,Х 0290 .WORD РН5ТАТ-1 ;STATUS ADDRESS 0750 JSR TIME ; KILL SOME TIME 
0410 LDA #$80 0300 .WORD BADST-1 ; SPECIAL 0760 LDA #0 ; STROBE PRINTER 
0420 STA ICAX2,x 0310 JMP BADST 0770 STA PORTA 
0430 LDA #CFILES$FF 0320 ; ЖЖЖ PUT NEW "Р" ІМ DEVICE TABLE Ж%% 0780 JSR TIME ; KILL SOME TIME 
0440 STA ICBAL ,x 0330 PINIT JSR PINIT ;PINIT REPLACED WITH DOSINI VEC 0790 LDA #$20 
0450 LDA #CFILE/$100 TOR 0800 STA PORTA 
0440... S16 1ЕВАН,Х 0340 INI LDA 4938 ; SET TO CONFIGURE PORTS 0810 PHCLOS LDY #SUCCES ; RETURN STATUS TO CIO 
0470 JSR CIOV 0350 STA PACTL 0820 TIME RTS 
0480 BMI СЕРР 0360 STA PBCTL 0830 ; ЖЖЖ STATUS ROUTINE ЖҰЖ 
ae LDA #PUTCHR 0370 LDA #$FF ; SET PORT В TO OUTPUT | 0840 PHSTAT LDA PORTA 
500. «51А; ICCOM, X 0380 STA PORTB 0850 BPL PHCLOS ; RETURN IF NO ERROR 
0510 LDA #PST&SFF 0390 LDX #$20 ; SET PORT A BIT 5 TO OUTPUT 0860 ERROR LOY #$8A ; RETURN ERROR 138 TO CIO 
0520 STA ICBAL,X 0400 5ТХ PORTA 0870 BADST RTS 
we —— 0410 LDA #$3C ; SET TO DATA MODE 0880 ; SAVE DOSINI VECTOR, SET NEW DOSINI VALUE 
earthed 0420 STA PACTL 0890 DOSSAV LDA DOSINI ; SAVE DOSINI 
orain 0430 STA PBCTL 0900 STA РЇНЇТ+1 
0570 LDA #FLEN/$100 A eee жебесе 
0450 LDY #0 ; ADD Р TO DEVICE TABLE 0920 STA PINIT+2 
ү ВА — 0460 ADI1 LDA DEVTAB,Y ; SEARCH FOR P OR 0 ENTRY 0930 LDA #PINIT&255 ;SET DOSINI 
и не 0470 BEG ADIZ 0940 STA DOSINI 
А 0480 CMP #'р 0950 LDA #PINIT/256 
* е — 0490 BEQ ADIZ 0960 STA DOSINI+1 
Ы X 0500 INY 0970 JSR INI ; INITIALIZE HANDLER 
0630 JSR CIOV 0510 INY 
0640 BRK bod $e 
0520 INY 0990 Ж- %2ЕР 
р за —— 0530 СРҮ #30 1000 .WORD DOSSAV ; SET RUN ADDRESS 
0540 BNE ADIL 1010 .END 
0670 END 0550 BRK 
BA RA AE RA RS AE ARAMA IS IAIA AG IA IA IG IE XA AG AA XA IA AG 3A RA XG 3A AA XG RA MAHA XA AG XG AA AG X IG IG XA IS RA RA IG RA RG XA RA IG XA RA IA XA XA RG RG A. IA XG IA. IG. AA IPRA AG RA IA XA RAIA IE IA IA RBBB MMB HRY YY И 
IS IA RA RA AS X ZA 25 IS ZA 3A S AE 3A 3P 38 XA 3A 3B XA ZA ZS 2R 3E 3A 3A 38 3A ZA 3A IA 3A 3A XA 38 HS 3A AA ZA ZA ZA IB XA XA 3A XA XG X IG XE XA IG IG XG XA 3B XA ZA ZA XB XB XP ZA ZA ZA ZA IA XA XP RA XA ZA 2B XA BA XB XA BA ZA ZB XB ZA ZA XA IA A IB BA IA AASE A TA NA WE 


TinyText Revisited cont 
A EEE EE E S E E IE OE, 


595 REM INVERSE:? "SIZE MARG DENT STOP SIZE FEED": 800 С=С-1 
ТКТ Ш":1МО;" И" ;ТАВ;",В";р5;" ,Ш°;ЕР 802 IF C=1 AND К)0 THEN FOR J=1 TO K:AS(LEN(A$)41) 
:POSITION 0,8 =" "МХТ J 

600 INPUT LL,LM,IND,TAB,PS FF :P=240:P=240:G0 TO 71 805 ІЗІНІЗІР I(TP THEN 790 

и 810 IF FL THEN AS=T$(PH1,TP-1) 

н Бый 815 IF OP=3 THEN LINE=LINE+1:IF LINE)(PS-FF) THEN 


LINE=1:FOR I=1 TO FF:LPRINT " ":NEXT I 

820 SP=LM+(B=9) KIND+(B=20) XTAB+ (B=3)X(LL-LEN(A$) )/ 
2:IF 5Р›40 THEN SP=40 

830 IF OP=3 THEN LPRINT 5Р%(1,5Р);А% 

840 IF OP=5 THEN 7 5P$(1,5P);A$ 

850 IF FL THEN 500 

840 P=TP:GOTO 715 

900 PK=PEEK(207): IF PK=1 THEN POKE 207,0:GOTO 930 

910 IF РК=0 AND P<LEN(T$)-279 THEN POKE 207,1 

930 A=USR(1536 ADR{T$)+P-241 SCR) :FOR 0=1 TO 50:МЕ 
XT D: RETURN 

950 7 “ERROR ";PEEK(195);" АТ ";256*PEEK(187)+PEEK 
(186):7 “PRESS RETURN TO CONTINUE": INPUT I$:GOTO 5 
00 

1500 7" ENTER FILE NAME": INPUT І%:ОРЕМ #3,8,0,1$: 
N=INT(LEN(T$)/128) :PRINT #3;N:IF №0 THEN ST=0:GCOT 


470 GOTO 620 

710 LINE=0:GRAPHICS 0:POSITION 0,3:FL=0 

715 PL=LL: TP=P:B=ASC(T$(TP,TP)) 
20 Ні-і1-ІМ0Ж(В-9)-ТАВЖ(В-20) 

725 IF B=19 AND OP=3 AND (1 ІМЕ(С-іР5-ҒҒ) THEN LPRINT 
" "'LINE=LINE+1L 

724 IF B=19 AND OP=5 THEN 7 

727 IF Вч16 AND OP=3 THEN FOR I=1 ТО PS-LINE:LPRIN 

Т" "NEXT T:LINE=0 

728 IF B=14 AND OP=5 THEN ? :7 :7 :LINE=0 

735 C=0:K=0 ; 

740 K=Kti: TP=TP+i: IF K=RL+1 THEN 765 

743 IF TPOLEN(T$)~241 THEN FL=1:GOTO 810 

750 A=ASC(TS(TP,TP)):IF A(32 THEN C=0:GOTO 780 

755 IF A=32 THEN С=С+1 

760 GOTO 740 


eg. 


1981, 


and néed to send in your renewal 
The letter 


Р has to do with the type of 
P means paid. 


The code on your mailing label 
shows the date you started; 
11P1 means you started your 
membership in November, 

in November of 1982. 


RENEWAL CODE 
membership, 


765 IF C=0 THEN A$=T$(P+1,TP-1):TP=TP-1:GOTO 810 0 1520 
768 IF T${TP-1,1P-1)=" " THEN C=C-1 NEXT I 
770° Ке 1520 PRINT #3;T$(ST+1,LEN(T$)):CLOSE #3:GOTO 500 


2000 7 " ENTER FILE NAME":INPUT I$:OPEN #3,4,0,I$: 
INPUT #3,N:IF N=0 THEN BEG=-127:GOTO 2020 

2010 GRAPHICS 0:FOR I=1 TO М:ВЕб-128Ж1-127:ІМРІЛ # 
3,A$:7 A$; :T$(BEG)=A$:NEXT I 

2020 INPUT #3,A$:T$(BEGH28)=A$:CLOSE #3:POKE 1534 
,104:6070 500 8 


әш 775 TP=TP-1:IF TS$(TP,TP}<>" " THEN K=K+1:GOTO 775 
< 780 IF Тр=р+1 THEN P=TP:GOTO 715 
785 А$="":1=р+1 
790 А$(ЕМ(АФ)+1)=ТФ (1,1) :ІР Т$%{1,1)0›)" " THEN 805 
795 IF С›1 THEN A=INT(K/C+RND(0)):IF ADO THEN FOR 
J=i TO A: AS(LEN(A$}41)=" ":NEXT J:K=K-A 


ACE Bulletin Board 
(503) 343-4352 


Our new Bulletin Board System, ACE Armudic, is working great. We have two 
double-density Percom drives, a Tara 48K Atari 400, and a Hayes Smart-Modem. 
There are many programs for you to download, including all from the Newsletter 
this year. We have room for more if you wish to Upload them. Call 24 hours a day. 
SYSOP now Mike Dunn. No passwords used yet. 


HOW TO USE THE ARMUDIC CENTRAL COMMUNICATOR. (availble from Frank 
Huband, 1206 N. Stafford St., Arlington, VA 22201, $99) 


A. introduction for the Remote User. 


To prepare for communication with an ARMUDIC Central Communicator, set 
your terminal parameters as follows: Translation mode—light; Duplex—full; Send 
parity—none; Receive parity—mark (ignore); Stop bits—one; and Baud rate—300. 
After setting these parameters, call the ARMUDIC Communicator and sign on 
according to its instructions. The Main Menu will then display the options 
available to you. It is presented the first time in its full descriptive form, with a 
sentence describing each option. Thereafter, ARMUDIC displays only the initial 
letters of the Main Menu. Press x RETURN or “?”(ог any invalid Menu option) to 
display the full Menu at that time. 

After you complete sign-on, just press xRETURNT (in response to апу 
ARMUDIC request for input) to return to the Main Menu. (Exceptions are 
specifically noted during operation.) If you don‘t answer in a minute to an 
ARMUDIC question, ARMUDIC will say good-by and hang up. 


B. User-to-User Messages. 

1. ACTIVATE. There may be several user-message files (UMFs) available on AR- 
MUDIC. The name of the currently active UMF is displayed on the same line as the 
time, preceeding the Main Menu display. To list the names and a brief description 
of the other user-message files, select Main Menu option “А”. Activate any of the 
listed files by entering the associated number. The remainder of this Section 
describes the options available for use with each file. 

2. SEND. To send a user-to-user message, select Main Menu option “S”. AR- 
MUDIC will ask you to enter the addressee of the message, and then offer you two 
options: 1) to lock the message with a password so only a user knowing the 
password can read it, and 2) to establish a password with which the message can 
be deleted. If you select either option, you will then be asked for a three-letter 
password. In any event, the next requests will be for the message title and text. In- 
dicate the end of the message by two successive x RETURNts. ARMUDIC will 
then display the message to you as it will be sent, and will give you the choice of 
either sending the message, redoing it, or cancelling it. 


3. GET. To read the user-to-user messages, select Main Menu option “G”. AR- 
MUDIC will present you with a series of choices. Pressing “S” or “R” in response 
will display the full headings or full headings and text respectively, of all 
messages beginning with the most recent entry. Alternatively, entering a digit 
from 1 to 8 (as indicated) will specify the message elements you want displayed. If 
you pick this option, you will be given the option of reading forward or backward 
or picking specific messages (or headings) to read, and then asked which 
message number to begin with. 

You can return to the Main Menu at any time while ARMUDIC is displaying user 
messages or headings (or other files, as indicated in C1 and E, below) by pressing 
“Control-C”. ARMUDIC will pause if you press ‘“Control-S”, and re-start when you 
press “Сопіго!-О”. 


4. ERASE. You can erase messages for which you know the erasure password 
by selecting Main Menu option “Е”. After you indicate the number of the message 
you want erased, ARMUDIC will display the time and date the message was sent, 
and its addressee and sender. You will then be asked to enter the three-letter 
erasure password established when the message was sent. If you correctly enter 
the password, the message will then be erased. 


C. Sending and Receiving Files on the Download Menu. 

1. RECEPTION (Download). To select the Download Menu option, select Main 
Menu option “D”. There may be more than one group of download files; if so, after 
selecting “D” you will be shown a listing of available download file groups and 
asked to select one. After making that selection, to then download any listed file, 
enter the number preceding its name. Any file name preceded by an “*”contains 
inverse-video characters and can be successfully downloaded only with a terminal 
set up to receive in “АТАЅСІІ” (no-translation) mode. Other files must be 
downloaded in light-translation mode. 


NOVEMEBER MEETING 

The November meeting of ACE will 
be held on November 10th at 7:30 
PM at the LCC SCIENCE BUILDING, 
Коош 111. ‘Park at. the East. end 
of the South parking lot; walk 
North to the building and use 
the East enterance. 


\ 


лаа а ы атаа 
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When ARMUDIC is ready to send the selected file, it will send “Hit RETURN 
to begin download”. If you want to store the file, set up your system at this time to 
save received text. (Note: The ATARI Telelink | cartridge cannot save files to disk 
or cassette. Use another terminal program if you wish to save downloaded files.) 
When you have done this, press х RETURNt апа the download process will 
begin. During download, you can use Control-S, -Q and -C (as described in B.2, 
above) to pause, restart, and terminate the download. When download is 
complete, store the file to disk under a convenient name or to a cassette, 
according to your terminal program‘s instructions. 

To run a downloaded program, sign off ARMUDIC, type NEW, and use the 
BASIC ENTER command to get the program into the computer's memory. Error 
messages may appear as the program ENTERs. If the text shown with an error 
message is not a numbered BASIC program line, the error probably indicates that 
material was stored on your disk or cassette in addition to the program. BASIC 
will ignore such material, and so can you. RUN the program at this time. If the 
program RUNs successfully, SAVE (or CSAVE) it to disk or to cassette, using 
either the original file name or tape (to overwrite the LISTed version of the 
program) or a new file name or tape (to keep both the LISTed and SAVEd versions). 


2. TRANSMISSION (Upload). You can upload either programs or other files to 
make them available on a Download Menu. Since the garbling in transmission of a 
single character in a SAVEd program can make it totally inaccessible, programs to 
be uploaded should be in ИЅТеа form. To put a program into this form, type NEW 
and then LOAD (ог СІОАГ) the program into the computer. Then LIST the 
program to a new cassette or to the disk under a new name. Since many terminal 
programs do not have the “ATASCII” mode needed to receive inverse-video 
characters, if at all possible prepare the program so it does not contain inverse- 
video characters. Place machine language code segments in DATA statements 
rather than strings, for example. 

If your terminal program can upload only from memory, before calling 
ARMUDIC follow your terminal program‘s instructions to load from disk or 
cassette into memory the program or other file you want to upload. After signing 
onto ARMUDIC, select Main Menu option “U”. ARMUDIC wili then tell you the 
maximum file length you can upload, which will be the smaller of its available 
internal memory and the memory remaining on the Download file disk after 
allowing for possible user-message file growth. On request, indicate the name (an 
upper-case letter followed by up to seven numbers or upper case letters) under 
which you want the file to be listed on the Download Menu, and whether you want 
the program to be available to everyone, only to those knowing the club password, 
or only to SYSOP. 

To upload a program which contains critical inverse-video text, inform 
ARMUDIC when asked, and set the terminal program to “ATASCII” (no-translation) 
mode when you are instructed. In any event, when ARMUDIC tells you to begin, 
start sending your program promptly; if you don‘t start within one minute 
ARMUDIC will terminate the upload. After you begin, ARMUDIC will assume a 
pause of 15 seconds to indicate you have finished, and will begin the process of 
storing your program to its Download file disk. 

if your file was longer than the buffer or disk space available, you will be told, 
and provided the last few lines of text accepted by ARMUDIC. If more disk space 
is available, upload the rest of the file іп a separate upload. If “Upload save error” 
is reported, it means ARMUDIC failed in its attempt to save your program — 
probably because of a bad disk. The message will also be sent to SYSOP'‘s log. 


D. Leaving a Message for SYSOP. 

To leave a message оп SYSOP’s printer, if the ARMUDIC system you have 
called has one, select Main Menu option “L”. After selecting “L”, enter the 
message, ending with two x RETURNS. This will send the message to SYSOP’s 
printer and return you to the Menu. 


E. Other Menu Options. 

Menu option “Q” signs you off ARMUDIC. Other Main Menu options may 
specify information files which ARMUDIC can send to you. During receipt of these 
files, use Control-S, -Q, and -C (as explained in B2 above) to pause, restart, and 
terminate receipt of the file. 


F. Password Access. 
Password holders can gain access to password-protected files and programs 


-by entering “=” in response to a Main Menu command query. You will then be 


prompted by а “Yes?”. Enter the password. ARMUDIC will respond to a correct 
entry with “O.K.”. Any password-protected Main Menu entries, Download Menu 
files, and user-message files will then be accessible. 


G. “Talking” with SYSOP. 

SYSOP may interrupt your use of ARMUDIC at the end of any menu selection to 
communicate with you directly. To respond, merely enter your responses normally 
through your keyboard, and you will be able to see SYSOP’s comments on your 
screen. 


A New Tutorial Series by Stan Ockers!! 


Machine 


Language 


Programming 


# 1: Load and Store 


Why machine language? Well, speed mainly. If you're tired of the plodding 
motion of graphics under Basic, you probably drool at the fast paced action of 
those all-machine-language games. 15 it reasonable to consider writing а game 
entirely in machine language? No, not for most people anyway, but things can be 
speeded up considerably by translating selected parts of a Basic program. 

Is machine language difficult? Yes, but not because it’s that hard to learn. 
There are only a few types of operations and they are fairly straight forward. The 
problem comes because we all tend to make simple mistakes. Make a mistake in 
Basic and you get an error message when you run the program. Make a mistake in 
machine language and the Atari “locks up”; no error messages or anything ... 
nothing to do but power down and re-try after entering the program with 
appropriate changes. ; 

The brains of the Atari is the 6502 CPU, (Central Processing Unit). It 
understands only about 70 different instructions contained in the 6502 
INSTRUCTION SET. The CPU works its way sequentially through memory looking 
for the different operation codes, (OP CODES), which tell it the operation to 
perform. The op code takes one byte or one memory location. An additional one or 
two bytes may be needed to specify an address to go along with the operation. A 
common mistake causing programs to “blow up” is not having the proper number 
of bytes following the op code; two instead of one for example. The CPU then 
interprets part of what was supposed to be an address as the next operation and 
dutifully tries to execute it. The result is the computer going off to “never-never 
land”. 

It’s most convenient to express numbers representing op codes etc. in the 
hexidecimal, (HEX), numbering system. In Hex a digit can have one of sixteen 
values, (0-9 or A-F). Two hex digits can hold 256 different values ($00-$FF). Each 
memory location in the Atari can also have one of 256 different values. Hex values 
are usually preceded by a dollar sign to indicate they are hex. 

Memory is a place for storing numbers. It is important to distinguish between 
the ADDRESS of a memory location and the DATA or number contained at that 
address. The 6502 can directly address over 65,000 different locations, (65K bytes). 
it takes four hex digits to specify an address and they run from $0000 to $FFFF. 
The two leftmost hex digits specify the PAGE. Page 1 for example contains all 
addresses between $0100 and $01FF, (256 bytes). A number at an address may 
represent an op code or additional information needed in an operation. 

Some addresses have a direct relationship to actual physical devices in the 
Atari. In graphics 0 there are 960 addresses which hold the data appearing as 
characters on the screen. Change the values in these locations and you change 
what shows up on the screen. Where are these locations? Well, it varies 
depending on the size of your memory, graphics mode, etc. Two locations in page 
zero contain the first address (upper left hand corner of the screen). $0058 holds 
the LOW ORDER BYTE or two rightmost digits of the hex address while $0059 
holds the HIGH ORDER BYTE or page of the address. Address order is normally 
reversed like this; low order byte first then the high order byte. 

The 6502 CPU has provision for holding numbers temporarily but unlike 
memory locations these locations have no address. They are called REGISTERS. 
The op codes specify how numbers are to be transferred among these registers or 
between registers and memory. The most often used register is called the 
ACCUMULATOR. The most often used instructions involve loading the 
accumulator with a number or storing the number from the accumulator 
somewhere else. Three letter code words called MNEMONICS specifying these 
operations are LDA (load the accumulator) and STA (store the accumulator). We 
will use these instructions to write a machine language program. 

The sound chip in the Atari, POKEY, also has some registers but since they are 
outside the CPU they have addresses. The number іп $0200 (AUDF1) controls the 
pitch of voice 1 while the number іп $0201 (AUDC1) controls the distortion and 
loudness of voice 1. A program to produce middle C might look like this in words: 

Start Load the accumulator with the desired pitch 

Store the accumulator in $D200 

Load the accumulator with a number representing distortion and volume 
Store the accumulator in $D201 

End 

In loading or storing the accumulator the location for data must somehow be 
specified. The type of specification is decided by the ADDRESSING MODE. The 
op code itself specifies the addressing mode. Table 1 is a very abbreviated op 
code table giving the op codes for three different addressing modes of STA and 
LDA, immediate, zero page and absolute. 


by Stan Ockers 


A program resides in a sequence of consecutive memory locations. The first is 
an op code. If that op code says LDA absolute the CPU knows to take the 
numbers in the next two memory locations as the low and high order bytes of an 
address. It takes the data AT THAT ADDRESS and puts it in the accumulator. 
Likewise, STA absolute is a 3 byte instruction using the 2 bytes following the op 
code to decide where to put the number in the accumulator. The sequence 
$8D,$55,$D8 says put the contents of the accumulator in location $D855. 

The zero page addressing mode consists of two byte instructions. Since all 
instructions refer to zero page, ($0000-$00FF), the high order byte doesn‘t have to 
be specified, (it's $00). The two bytes $A5,$06 say take the data from location 
$0006 and put it in the accumulator. 

The immediate mode doesn‘t refer to an address. $A9,$60 means take the 
number following the op code and put it in the accumulator, (load the accum. with 
$60). There is no STA immediate instruction because it makes no sense. The 
pound sign (#) is used to indicate the immediate mode in listings. 

To get our program into memory and run it we use a Basic program called 
“Нехроке”, (listing 1). Hexpoke allows you to input numbers in hex and have them 
placed in memory. The actual numbers in memory might look like figure 1 while a 
listing which makes more sense is shown in listing 2. Basic grabs most of 
memory for itself but it turns out all of page 6 is available, so that is where we put 
our program. Notice in listing 2 each operation is on a seperate line along with the 
address, code (numbers), label and comments pertaining to the operation. 

Run Hexpoke with a starting address of $0600 and you will be presented with 
the first 56 bytes of page 6. The four cursor keys let you move around among this 
data. Enter two hex keys to replace a data byte. If you make a mistake on the first, 
you can use the backspace. The only other keys which work are ‘R’ and ЕСА: 
is to run the program starting at the starting address ($0600 іп this case). ‘ESC’ is 
to get a new screenfull of data from another part of memory. Be sure to start your 
program with hex $68 (PLA) and end it with $60, (RTS). The PLA has to do with the 
USR function used to call the program. The RTS (Return from Subroutine) gets 
you back to Basic when the machine language program is finished. 

Use Hexpoke to load and run the program of listing 2. Try playing around with 
the numbers loaded in the sound registers. You might also try a program which 
simply loops to itself: 


0600 68 PLA 
0601 4C 01 06 LOOP JMP LOOP 
0604 60 RTS 


You will never get to the RTS of course but you can get back to Basic with 
RESET. Here are some more things to try. Answers will appear in the next 
installment. 


Problem #1 

Use Hexpoke to find the upper left corner of the screen in your system, (use 
$0058 as the starting address). 

The Atari has a real time clock which appears at locations $0012, $13 and $14 
with $14 incrementing by one every 1/60th sec. When $14 reaches 255 it goes to 
zero again and $13 is also incremented. Likewise when $13 rolls over $12 is 
incremented. 

Write a program to print out these locations in the upper left corner of the 
screen, (use 3 different bytes). Use zero page addressing for loads and absolute 
addressing for stores. Don‘t return to Basic with a RTS because it will clear the 
screen. Instead use a loop which jumps to itself and get back to Basic with 
RESET. 

You should get different ‘numbers’ each time you run the program. The 
numbers are actually ATASCII characters and you will have to use Appendix С ої 
the Basic Reference Manual to convert them to hex or decimal. Rather than a loop 
which jumps to itself, why not have the program repeat continuously by looping 
back to the first load instruction. 


Problem #2 

If you have paddle controllers: Тһе viaue given by paddle 0 (PADDLO) сап be 
found in location $270. Use this value to control the pitch of voice 0. Put $АА іп 
AUDC1 as before. If you want to continuously change the sound, you will һауе to 
loop back and pick up PADDLO again and again. 

If you have joysticks controllers: You can do the same thing with joysticks, but 
not as well. Joystick 0 values appear at $278. If the sounds are too high pitched for 
you just put 1 to 4 ASL A’s (hex $0A, one byte operation), between the load and 
store operation. We'll talk about what this does at some later time. 


LISTING 2: MIDDLE C PROGRAM 


ADDRESS CODE LABEL 
0600 68 START 
0601 А9 79 

0603 8D 00 D2 

0606 А9 АА 

0608 8D 01 D2 

060B 60 


OPERATION COMMENT 

PLA - DISCARD 

LDA -$79 - MIDDLE С 

STA AUDF1 

LDA -$AA - CONTROL BYTE 
STA AUDC1 ; 

RTS - BACK TO BASIC 
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FIGURE 1: 
MIDDLE C PROGRAM IN MEMORY 
Memory Contents Address (Data) 


0600 68 
0601 А9 
0602 79 
0603 8D 
0604 00 
0605 D2 
0606 А9 
0607 АА 
0608 8D 
0609 01 

060А D2 
060В 60 
060С XX 
0600 XX 


TABLE 1: 
SIMPLIFIED OP-CODE TABLE 


ADDRESSING MODE 


ABSOL. Z PAGE IMMED. 
LDA AD A5 А9 
STA 8D 85 — 
УМР 4С — — 
З-ВҮТЕ 2 ВҮТЕ 2 ВҮТЕ 
SINGLE BYTE 
PLA 68 
RTS 60 


ee E 


TINY TEXT UPDATE 


by Jim Carr, Corvallis, OR 
TINY TEXT is a small but very clever cassette based text editor written by Stan 
Ockers of Lockport, Il. The original version of TINY TEXT first appeared іп the Nov. 
81 issue of the A.C.E. Newsletter. 

TINY TEXT was never intended to be ап all purpose word processor even 
though it does provide several of the important features found in these larger pro- 
grams. TINY TEXT was written to make it easy for ATARI users to send in 
“machine readable” copy of articles to the Eugene A.C.E. Newsleter. The real ad- 
vantage of this program is it is small, inexpensive, and very easy to use. 

The description which follows is for a slightly enhanced version of TINY TEXT. 
The following modifications were made by Jim Carr, Corvallis, Or: 

Support for Atari 820 printer; Separate Print and Display modes; Forms control 
for Print mode; Top of page comm and for Print Mode; Save text on Cassette or 
Disk; Error trap control; Adapts to different RAM sizes. Cassette tapes recorded 
by the original TINY TEXT can still be used with this modifided version. Finally, 
the modified version corrects a couple of minor formatting bugs and is about ten 
percent “tinier” than the original version. 


USING THE PROGRAM 

The OPTION key is used to select one of five options: LOAD, EDIT, PRINT, 
SAVE, and DISPLAY. The following paragraphs describe the use of each of these 
options. 

LOAD OPTION: The LOAD option is used to reload text which was previously 
saved on cassette or disk. When the LOAD option is selected you will be asked to 
enter the “file name” of the text you wish to have loaded. If the text is on cassette, 
then simply type а “С” (no quotation marks). The computer will “beep” once to re- 
mind you to set up the recorder to play. After the recorder has been setup, press 
RETURN to tell the computer to begin loading the text. If the text to be loaded is 
on disk, type the complete file name of the text file. For example 


“D1:TTHELP.TXT”. 
EDIT OPTION: 

The EDIT option lets you enter text or make changes to text previously entered. 

Entering text: When the Edit mode is requested, a blank area (text entry 
window) appears in the center of the screen. Up to three lines of text can be typed 
into this window. Pressing RETURN causes text in the window to be added to 
previously entered text. You can use the standard screen editing functions to edit 
text in the window. Note: Since all trailing blanks in the window will be deleted, it 
is a good idea to end each entry at the end of a word and start each new entry with 
a space. 

Functions such as tabbing and indentation are controlled by special formatting 
symbols. These symbols always cause the current line to be ended before the re- 
quested formatting function is executed. The following formatting symbols may 
be used: 

CTRL E End the current line and start a new line with no indentation. 

CTRL I Indent the next line. 

CTRL S Space before starting the next line. 

CTRL T Tab over a set number of spaces before starting the next line. 

CTRL C Center the next line. 

CTRL P Advance the printer forms to the top of the next page before printing the 
next line. 


Editing Text: When you are in the edit mode, pressing the SELECT key will 
cause the line of text below the window to be moved up into the window. The nor- 
mal screen control functions can then be used to fix up the text in the window. 
Use the joy stick to scroll the desired line to the position below the text window. 
Pressing SELECT twice without making any changes in between simply causes 
the text line to move up into the window and then back. To DELETE a line of text, 
move it below the text window and press RETURN. Pressing the joystick trigger 
will cause you to jump to the end of the text. 


- 


PRINT OPTION: 


This option prints the formatted text on the printer. Before the printing begins 
you have a chance to make changes to default settings for the line length, tab 
stop, etc. Use the screen edit functions to make any desired change, then press 
RETURN. The items which may be changed are: 

LINE - Line length (maximum number of characters per line) 

INDENT - The number of spaces to be indented (left margin) 

TAB STOP - The number of spaces for the tab stop 

PAPER SIZE - The total number of lines which can be printed on а fully covered 
page. For example, 11 inch forms with 6 lines per inch have 66 lines. 

FORMS FEED - The number of lines which are to be printed to seperate the bot- 
tom of one page from the top of the next. For example, if 3 blank lines are required 
at the top and bottom of each page, then Forms Feed will be set to 6. 


SAVE OPTION: 

This option lets you save text on either cassette or disk. When the SAVE option 
is selected you will be asked to enter the “file name” to be used in saving the text. 
If you are using a cassette simply type “С”. The computer will beep twice to re- 
mind you to set up the recorder to record. After the recorder has been set up, 
press RETURN to begin saving text. If you wish to save the text on disk, then enter 
the complete file name to be used. For example “D:TTHELP.TXT”. 


DISPLAY OPTION: | 
This option displays the text on the screen. It provides the same format change 
options as the print option. 


PROGRAMMING NOTES: 


The default settings for the format control functions are defined at line 120. 

If you wish to make any changes to this program you should first make a 
change to line 14 which automatically expands the main data storage array T$ to 
use all available memory. Try changing “512 = FRE(0)-50” to “512 = FRE(0)-500”. 
When you have finished making your changes you can restore the statement to its 
original form. 

If a system error occurs, it is trapped and printed out by the program. You are 
then prompted to press RETURN to make the program continue. When you press 
RETURN, the program will go to the OPTION selection mode. This will generally 
allow you to recover from errors without loss of data. 


Vultures ІШ 


by Stan Ockers, Rockport, IL 


The new addition in ‘Vultures III’ has to do with the sound. Basic tends to get 
slowed down if it has to continually update sound registers. Why not put the 
sound routines іп the VBI? That‘s what I‘ve done in Vultures. 

I've included a listing of the machine language routine for voice #1. The same 
code with different registers is repeated in the VBI routine for voice #2. The data is 
in lines 2050-2052 and 2054-2056. Voices #3 and #4 could also be included. Eight 
locations at the end of page 6 hold ‘string’ position of current sounds being pro- 
duced and the duration counts for waiting until the next change. The positions ac- 
tually refer to page 6 locations. The sound ‘strings’ are POKEd into page 6. 

The ‘strings’ consist of three byte combinations. The first is the pitch; the 
second a control byte made up of distortion (high nibble) and volume (low nibble). 
The third byte is the duration of the sound in 1/60th’s of a second. I‘ve included a 
Basic program ‘Sounds’ which helps to generate sound strings. 

Use the joystick to move around the screen. Press the button and move the 
stick forward or back to increase or decrease the values. Press START to hear the 
sound and see a list of bytes required to make the sound. You don’t have to repeat 
loudness and distortion bytes as long as they remain the same. The generator will 
repeat the same values for these two on consecutive bytes until a change is 
made. 

Vulture movement is done using the same X & Y movement routine as in 
‘Balloons’. The display list has been changed and most of the Graphics 0 screen 
is changed to mode 4. I've only used the normal character set however because 
the program was already getting pretty long. 





ome for your personal computer. Open the desk 
the drawer above. 


Closed, it's a compact h 
surface and pull out your machines. Disks are in 
Plenty of room for printer, paper storage, cassette machine. Cords and 
transformers are safely out of sight -- and there's even a сору holder 


for your work. 


TYPESET COPY 


From Your Computer 


If you have a modem, word processing and communications programs, 
you can transmit your manuscript, article, newsletter, or other text via 
telephone and have it converted into space-saving, easy-to-read type! 
Computer typesetting offers you high quality copy at ‘do-it-yourself’ 
rates: just $2.00 per 1,000 characters. And it’s easy to encode your copy 
with our designated typesetting commands. Hundreds of type styles to 
choose from with 8 styles and 12 sizes “оп line! Write or call Dennis Hunt 
for a brochure and simple instructions. 


EDITING & DESIGN SERVICES 


30 East 13th Avenue Eugene, Oregon 97401 
Phone (503) 683-2657 
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Atari Computer Enthusiasts 


A.C.E. is an independent computer club and user’s group with no 
connection to the Atari Company, a division of Warner Communication 
Company. We are a group interested in educating our members in the use of 
the Atari Computer and in giving the latest News, Reviews and Rumors. 

All our articles, reviews and programs come from you, our members. 

Our membership is world-wide in scope; membership fees include the 
A.C.E. Newsletter. Dues are $10 a year for U.S., and $20 a year Overseas 
Airmail and include about 10 issues a year of the ACE Newsletter. 
President—Kirt Stockwell, 1810 Harris #139, Eugene, Or 97403 503-686-2470 
Secretary—Charles Andrews, POB 1613, Eugene, Or 974401613 503-747-9892 
Librarian—Chuck and Jody Ross, 2222 Ironwood, Eugene, OR 97401 
503-343-5545 
Editors—Mike Dunn, 3662 Vine Maple Dr., Eugene, Or 97405 503-344-6193 

Jim Bumpas, 4405 Dillard Rd., Eugene, Or 97405 503-484-9925 


Send a business-size SASE to the Ross’ for the new, updated ACE Library 
List!! Best of ACE-1981, still available, Disk or Tape, $8! 


